blob: 03cbf39b0bf273aaeb51c699ac1c7a34e926711b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
|
