Sign in
llvm
/
llvm-test-suite
/
refs/heads/internal_dummy
/
.
/
Fortran
/
gfortran
/
regression
/
pr95104.f90
blob: 20bdd910f468687a4a390bcb1980ac914a17ea86 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR libfortran
/
95104
-
Segfault
on a legal WAIT statement
program test
wait
(
10
,
iostat
=
ios
)
if
(
ios
/=
0
)
stop
1
close
(
10
)
end
program test
