OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.