PR inline-asm/84742
[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