gcc/testsuite/gfortran.dg/direct_io_3.f90

   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