URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_3.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log