------- 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
