Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
execute
/
read_eof.f90
blob: f472e9b444badcc1361f5514fcd1e51efafc214d [
file
] [
log
] [
blame
]
!
PR
13919
,
segfault
when
file
is
empty
open
(
unit
=
8
,
status
=
'scratch'
)
read
(
8
,*,
end
=
1
)
i
STOP
1
1
continue
end