Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/factory-ryu-6486.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
list_read_12.f90
blob: 811ef152a5b3418a458518173632783c452486a5 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR58324
Bogus
end
of file condition
integer
::
i
,
ios
open
(
99
,
access
=
'stream'
,
form
=
'unformatted'
)
write
(
99
)
"5 a"
close
(
99
)
open
(
99
,
access
=
'sequential'
,
form
=
'formatted'
)
read
(
99
,
*,
iostat
=
ios
)
i
if
(
ios
/=
0
)
call abort
end