! { dg-do run } | |
! PR 18710 : We used to not read and write the imaginary part of | |
! complex numbers | |
COMPLEX C, D | |
COMPLEX(KIND=8) E, F | |
OPEN(UNIT=9,FILE='PR18710',ACCESS='DIRECT',RECL=132) | |
C = (120.0,240.0) | |
WRITE(9,REC=1)C | |
READ(9,REC=1)D | |
if (c /= d) call abort() | |
E = (120.0,240.0) | |
WRITE(9,REC=1)E | |
READ(9,REC=1)F | |
if (E /= F) call abort() | |
CLOSE(UNIT=9,STATUS='DELETE') | |
END |