flang/test/Semantics/OpenACC/acc-wait-validity.f90

   1 ! RUN: %S/../test_errors.sh %s %t %flang -fopenacc
   2 ! REQUIRES: shell
   3
   4 ! Check OpenACC clause validity for the following construct and directive:
   5 !   2.16.13 Wait
   6
   7 program openacc_wait_validity
   8
   9   implicit none
  10
  11   logical :: ifCondition = .TRUE.
  12
  13   !$acc wait
  14
  15   !$acc wait async
  16
  17   !$acc wait(1)
  18   !$acc wait(1, 2)
  19
  20   !$acc wait(queues: 1)
  21   !$acc wait(queues: 1, 2)
  22
  23   !$acc wait(devnum: 1: 3)
  24   !$acc wait(devnum: 1: 3, 4)
  25
  26   !$acc wait(devnum: 1: queues: 3)
  27   !$acc wait(devnum: 1: queues: 3, 4)
  28
  29   !$acc wait(1) if(.true.)
  30
  31   !ERROR: At most one IF clause can appear on the WAIT directive
  32   !$acc wait(1) if(.true.) if(.false.)
  33
  34   !$acc wait(1) if(.true.) async
  35
  36   !$acc wait(1) if(ifCondition) async
  37
  38   !$acc wait(1) if(.true.) async(1)
  39
  40   !ERROR: At most one ASYNC clause can appear on the WAIT directive
  41   !$acc wait(1) if(.true.) async(1) async
  42
  43 end program openacc_wait_validity