1! { dg-do compile } 2! { dg-options "-std=f2008" } 3subroutine a1 4 stop666 ! { dg-error "Blank required in STOP" } 5end subroutine a1 6