[Bug libfortran/18710] New: img part of complex number not written to direct access file

[bdavis at gcc dot gnu dot org]

this from nist test fm910.for

$ cat c.f
       COMPLEX C
       OPEN(UNIT=9,FILE='A',ACCESS='DIRECT',STATUS='OLD',RECL=132)
       C = (120.0,240.0)
       WRITE(9,REC=1)C
       C = (0.0,0.0)
       READ(9,REC=1)C
       PRINT*,C
       END
        
$ gfc c.f
$ ./a.out
 (  120.0000    ,  0.000000    )
$ g77 c.f
$ ./a.out
 (120.,240.)
$

-- 
           Summary: img part of complex number not written to direct access
                    file
           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=18710