Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
compile
/
io_end.f90
blob: f67ae57ae8ea4dffe87b400f2d3efda47649e1a3 [
file
] [
log
] [
blame
]
!
Check
we can cope
with
end
labels
in
IO statements
program m
implicit
none
integer i
do
while
(.
true
.)
read
(*,
*,
end
=
1
)
i
end
do
1
continue
end
program m