Sign in
llvm
/
llvm-archive
/
0a08b18d61a4e73e6da104d9b9fe5a353e54d2de
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
endfile_2.f90
blob: e91e80eb2aa80c18f722cb67b93abeb0760d224f [
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
close
(
8
,
status
=
'delete'
)
end