gcc/testsuite/gfortran.dg/goacc/asyncwait-3.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 (1 2) ! { dg-error "Syntax error in OpenACC expression list at" }
  15
  16   !$acc wait (1,) ! { dg-error "Syntax error in OpenACC expression list at" }
  17
  18   !$acc wait (,1) ! { dg-error "Syntax error in OpenACC expression list at" }
  19
  20   !$acc wait (1, 2, ) ! { dg-error "Syntax error in OpenACC expression list at" }
  21
  22   !$acc wait (1, 2, ,) ! { dg-error "Syntax error in OpenACC expression list at" }
  23
  24   !$acc wait (1 ! { dg-error "Syntax error in OpenACC expression list at" }
  25
  26   !$acc wait (1, *) ! { dg-error "Invalid argument to \\\$\\\!ACC WAIT" }
  27
  28   !$acc wait (1, a) ! { dg-error "WAIT clause at \\\(1\\\) requires a scalar INTEGER expression" }
  29
  30   !$acc wait (a) ! { dg-error "WAIT clause at \\\(1\\\) requires a scalar INTEGER expression" }
  31
  32   !$acc wait (N)
  33
  34   !$acc wait (1.0) ! { dg-error "WAIT clause at \\\(1\\\) requires a scalar INTEGER expression" }
  35
  36   !$acc wait 1 ! { dg-error "Unclassifiable OpenACC directive" }
  37
  38   !$acc wait N ! { dg-error "Unclassifiable OpenACC directive" }
  39
  40   !$acc wait (1)
  41 end program asyncwait