gcc/testsuite/gfortran.dg/coarray_9.f90

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