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 6 7 OPEN(UNIT=9,FILE='PR18710',ACCESS='DIRECT',RECL=132) 8 9 C = (120.0,240.0) 10 WRITE(9,REC=1)C 11 READ(9,REC=1)D 12 if (c /= d) call abort() 13 14 E = (120.0,240.0) 15 WRITE(9,REC=1)E 16 READ(9,REC=1)F 17 if (E /= F) call abort() 18 19 CLOSE(UNIT=9,STATUS='DELETE') 20 END 21