PROGRAM test_kind
integer  :: itest 
REAL        :: rtest
itest = HUGE(itest)
rtest = HUGE(rtest)
print * , ' itest = ', itest , '\n rtest = ' , rtest
! Try multipling by two, since numerical consts are KIND=4
print * , ' 2*itest = ', 2 * itest  , '\n 2*rtest = ' , 2 * rtest
END PROGRAM test_kind
produces

$ /gcc-4.0/bin/gfortran -d8 test_kind.f90

[EMAIL PROTECTED] /cygdrive/d/gfortran
$ ./a
  itest =   2147483647
 rtest =   3.4028235E+38
  2*itest =           -2
 2*rtest =       +Infinity

[EMAIL PROTECTED] /cygdrive/d/gfortran
$ /gcc-4.0/bin/gfortran -i8 test_kind.f90

[EMAIL PROTECTED] /cygdrive/d/gfortran
$ ./a
  itest =   2147483647
 rtest =   3.4028235E+38
  2*itest =           -2
 2*rtest =       +Infinity

[EMAIL PROTECTED] /cygdrive/d/gfortran
$ /gcc-4.0/bin/gfortran -r8 test_kind.f90
gfortran: unrecognized option `-r8'

-- 
           Summary: -i8 and -d8 compiler options do nothing / -r8 not
                    recognised
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paul dot richard dot thomas at cea dot fr
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18598

Reply via email to