[Bug libfortran/17706] New: reading a value of 0.0 gives a value of -0.0

["bdavis at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

This failure from NIST test FM406:


$ cat c.f
        CHARACTER*10 A10VK
        A10VK = 'XXXXXXXXXX'
        AVS = -0.0001
        WRITE(A10VK,39104) AVS
39104   FORMAT(F4.1)
        PRINT*,A10VK
        END
$ cat c.f
        CHARACTER*10 A10VK
        A10VK = 'XXXXXXXXXX'
        AVS = -0.0001
        WRITE(A10VK,39104) AVS
39104   FORMAT(F4.1)
        PRINT*,A10VK
        END
$ gfc c.f
$./a.out
 -0.0
$ g77 c.f
$ ./a.out
  0.0

$ gfc --version
GNU Fortran 95 (GCC 4.0.0 20040924 (experimental))

-- 
           Summary: reading a value of 0.0 gives a value of -0.0
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


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