blob: ebb8ef3b9df37b5de80d21c4f008fde4951f1032 [file] [log] [blame]
! { 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) STOP 1
E = (120.0,240.0)
WRITE(9,REC=1)E
READ(9,REC=1)F
if (E /= F) STOP 2
CLOSE(UNIT=9,STATUS='DELETE')
END