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