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