Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
eof_3.f90
blob: 83d652912bc936570eba0d64fb4b73cf9f577e36 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR40714 A read hitting EOF should leave the unit structure
in
a correct state
program test
open
(
unit
=
32
,
status
=
"scratch"
,
access
=
"sequential"
,
form
=
"unformatted"
)
read
(
32
,
end
=
100
)
100
continue
write
(
32
)
end
program test