! { dg-do  run }
! { dg-shouldfail "STOP 1" }
program main
  stop 1
end program main