]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gfortran.dg/pr95104.f90
projects / thirdparty / gcc.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
PR fortran/95104 - Segfault on a legal WAIT statement
[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / pr95104.f90
1 ! { dg-do run }
2 ! PR libfortran/95104 - Segfault on a legal WAIT statement
3
4 program test
5 wait (10, iostat=ios)
6 if (ios /= 0) stop 1
7 close (10)
8 end program test
Mirror of https://gcc.gnu.org/git/gcc.git