Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
endfile_2.f90
blob: 7f366f1e0336f0a6b2a81a6b00639547d42d139b [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
pr18778 abort on endfile without opening unit
program test
implicit
none
integer i
endfile
(
8
)
rewind
(
8
)
read
(
8
,
end
=
0023
)
i
call abort
!
should never
get
here
stop
0023
continue
end