error_stop_1.f08 « gfortran.dg « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/gcc/testsuite/gfortran.dg/error_stop_1.f08

blob: 80a19b1e7f4819146d7dded55d702b6ba5aa8f7a (plain)

! { dg-do run }
program stopper
  real, dimension(5,5,5) :: i
  error stop size(i) ! { dg-shouldfail "ERROR STOP 125" }
end program stopper