FIX: F6100 Reading Maximal Negative Integers

MORE INFORMATION

The smallest negative integer for each integer data type is: The sample code below generates the 6100 error for all integer types when compiled with PowerStation, but only generates the 6100 error for integer*4 with FORTRAN 5.1 and earlier.

Sample Code

C No Compiler options needed
      integer*1 i
      integer*2 j
      integer*4 k
      open(1,file='test.dat')
      do 10 n=3,5
        write(1,*) -2**((2**n-1))
 10   continue

      rewind(1)
      read(1,*,iostat=ierr) i
      if(ierr.eq.6100) then
        print*, 'error reading integer*1 was: ',ierr
      else
        print*, 'integer*1 input: ',i
      end if

      read(1,*,iostat=ierr) j
      if(ierr.eq.6100) then
        print*, 'error reading integer*2 was: ',ierr
      else
        print*, 'integer*2 input: ',j
      end if

      read(1,*,iostat=ierr) k
      if(ierr.eq.6100) then
        print*, 'error reading integer*4 was: ',ierr
      else
        print*, 'integer*4 input: ',k
      end if

      end