Dead
[official-gcc.git] / gomp-20050608-branch / gcc / testsuite / gfortran.dg / direct_io_3.f90
blob03cbf39b0bf273aaeb51c699ac1c7a34e926711b
1 ! { dg-do run }
2 ! PR 18710 : We used to not read and write the imaginary part of
3 ! complex numbers
4 COMPLEX C, D
5 COMPLEX(KIND=8) E, F
7 OPEN(UNIT=9,FILE='PR18710',ACCESS='DIRECT',RECL=132)
9 C = (120.0,240.0)
10 WRITE(9,REC=1)C
11 READ(9,REC=1)D
12 if (c /= d) call abort()
14 E = (120.0,240.0)
15 WRITE(9,REC=1)E
16 READ(9,REC=1)F
17 if (E /= F) call abort()
19 CLOSE(UNIT=9,STATUS='DELETE')
20 END