5 ! Check for error if no -fcoarray= option has been given
9 integer :: b[*] ! { dg-error "Coarrays disabled" }
12 sync all ! "Coarrays disabled" (but error above is fatal)
14 critical ! "Coarrays disabled" (but error above is fatal)
16 end critical ! "Expecting END PROGRAM statement" (but error above is fatal)