Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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