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