?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR ipa/83051
[official-gcc.git] / gcc / testsuite / gfortran.dg / error_stop_1.f08
blob80a19b1e7f4819146d7dded55d702b6ba5aa8f7a
1 ! { dg-do run }
2 program stopper
3   real, dimension(5,5,5) :: i
4   error stop size(i) ! { dg-shouldfail "ERROR STOP 125" }
5 end program stopper
Mirror of the offical gcc git repository hosted at gcc.gnu.org