------- Comment #2 from kargl at gcc dot gnu dot org 2007-08-01 17:29 ------- These two examples are the poster child for 1) Why -fdefault-integer-8 is a bad option and should only be used by people who are prepared to have broken results. 2) Why EQUIVALENCE is a horribly abused construct.
In fact, from equiv_7.f90, this is invalid function d1mach_big(i) result(d1mach) implicit none double precision d1mach,dmach(5) integer i,large(4),small(4) equivalence ( dmach(1), small(1) ) equivalence ( dmach(2), large(1) ) data small(1),small(2) /1048576, 0/ data large(1),large(2) /2146435071,-1/ d1mach = dmach(i) end function d1mach_big -- kargl at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |kargl at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32956