gcc/testsuite/gfortran.dg/goacc/default.f95

   1 ! { dg-do compile }
   2
   3 program tile
   4   integer i, j, a
   5
   6   !$acc parallel default (shared) ! { dg-error "Unclassifiable OpenACC directive" }
   7   !$acc end parallel ! { dg-error "Unexpected" }
   8
   9   !$acc parallel default (private) ! { dg-error "Unclassifiable OpenACC directive" }
  10   !$acc end parallel ! { dg-error "Unexpected" }
  11
  12   !$acc parallel default (none)
  13   !$acc end parallel
  14
  15   !$acc parallel default (firstprivate) ! { dg-error "Unclassifiable OpenACC directive" }
  16   !$acc end parallel ! { dg-error "Unexpected" }
  17 end program tile