summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/error_stop_1.f08
blob: 80a19b1e7f4819146d7dded55d702b6ba5aa8f7a (plain)
1
2
3
4
5
! { dg-do run }
program stopper
  real, dimension(5,5,5) :: i
  error stop size(i) ! { dg-shouldfail "ERROR STOP 125" }
end program stopper