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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_3.f90] - Blame information for rev 827

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	149	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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_3.f90] - Blame information for rev 827