1! { dg-do compile } 2! 3! PR fortran/18918 4! 5! Check for error if no -fcoarray= option has been given 6! 7 8integer :: a 9integer :: b[*] ! { dg-error "Coarrays disabled" } 10 11error stop "Error" 12sync all ! "Coarrays disabled" (but error above is fatal) 13 14critical ! "Coarrays disabled" (but error above is fatal) 15 16end critical ! "Expecting END PROGRAM statement" (but error above is fatal) 17 18end 19! { dg-excess-errors "compilation terminated" } 20