[Bug fortran/32611] New: signed zero

[jv244 at cam dot ac dot uk]

a F2003 / QOI issue :

REAL :: x,y
character(len=16) :: s1,s2
x=-0.0
y= 0.0
IF (sign(1.0,x).NE.sign(1.0,y)) THEN
   write(s1,'(E16.8)') x
   write(s2,'(A16)') "-0.00000000E+00"
   IF (s1.NE.s2) CALL ABORT()
ENDIF

END


-- 
           Summary: signed zero
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


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