repo.or.cz
/
official-gcc
/
graphite-test-results.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge from mainline (167278:168000).
[official-gcc/graphite-test-results.git]
/
gcc
/
testsuite
/
gfortran.dg
/
direct_io_3.f90
blob
03cbf39b0bf273aaeb51c699ac1c7a34e926711b
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