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