Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
endfile_2.f90
blob: db9a42cf34b50390d18bfd202198e7a4b316c533 [
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
STOP
1
!
should never
get
here
stop
0023
continue
close
(
8
,
status
=
'delete'
)
end