21 lines
464 B
Fortran
21 lines
464 B
Fortran
|
! { 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
|