gcc/testsuite/gfortran.dg/goacc/asyncwait-4.f95

   1 ! { dg-do compile }
   2
   3 program asyncwait
   4   integer, parameter :: N = 64
   5   real, allocatable :: a(:), b(:)
   6   integer i
   7
   8   allocate (a(N))
   9   allocate (b(N))
  10
  11   a(:) = 3.0
  12   b(:) = 0.0
  13
  14   !$acc wait async (1 2) ! { dg-error "Unclassifiable OpenACC directive" }
  15
  16   !$acc wait async (1,) ! { dg-error "Unclassifiable OpenACC directive" }
  17
  18   !$acc wait async (,1) ! { dg-error "Invalid character in name" }
  19
  20   !$acc wait async (1, 2, ) ! { dg-error "Unclassifiable OpenACC directive" }
  21
  22   !$acc wait async (1, 2, ,) ! { dg-error "Unclassifiable OpenACC directive" }
  23
  24   !$acc wait async (1 ! { dg-error "Unclassifiable OpenACC directive" }
  25
  26   !$acc wait async (1, *) ! { dg-error "Unclassifiable OpenACC directive" }
  27
  28   !$acc wait async (1, a) ! { dg-error "Unclassifiable OpenACC directive" }
  29
  30   !$acc wait async (a) ! { dg-error "ASYNC clause at \\\(1\\\) requires a scalar INTEGER expression" }
  31
  32   !$acc wait async (N)
  33
  34   !$acc wait async (1.0) ! { dg-error "ASYNC clause at \\\(1\\\) requires a scalar INTEGER expression" }
  35
  36   !$acc wait async 1 ! { dg-error "Unclassifiable OpenACC directive" }
  37
  38   !$acc waitasync ! { dg-error "Unclassifiable OpenACC directive" }
  39
  40   !$acc wait,async ! { dg-error "Unclassifiable OpenACC directive" }
  41 end program asyncwait