repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Update ChangeLog and version files for release
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
list_read_12.f90
blob
860469222e51dfa73639b63926c47366bfab399e
1
! { dg-do run }
2
! PR58324 Bogus end of file condition
3
integer
::
i
,
ios
4
open
(
99
,
access
=
'stream'
,
form
=
'unformatted'
)
5
write
(
99
)
"5 a"
6
close
(
99
)
7
8
open
(
99
,
access
=
'sequential'
,
form
=
'formatted'
)
9
read
(
99
, *,
iostat
=
ios
)
i
10
close
(
99
,
status
=
"delete"
)
11
if
(
ios
/=
0
)
call
abort
12
end