------- Comment #11 from burnus at gcc dot gnu dot org  2009-07-08 14:55 -------
Created an attachment (id=18158)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=18158&action=view)
Patch - lightly tested

Attached patch fixes the problem [independent of
"-f(no-)signed-zeros"/-ffast-math].

The crucial option is "-fno-sign-zero" (which shall not be confused with
-f(no-)signed-zeros):

$ gfortran -O3 -fno-sign-zero ahfj.f90 && ./a.out
 With val =    0.0000000      test =    0.0000000
 pass


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |burnus at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED


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

Reply via email to