43 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2 3! Check OpenACC clause validity for the following construct and directive:4! 2.16.13 Wait5 6program openacc_wait_validity7 8 implicit none9 10 logical :: ifCondition = .TRUE.11 12 !$acc wait13 14 !$acc wait async15 16 !$acc wait(1)17 !$acc wait(1, 2)18 19 !$acc wait(queues: 1)20 !$acc wait(queues: 1, 2)21 22 !$acc wait(devnum: 1: 3)23 !$acc wait(devnum: 1: 3, 4)24 25 !$acc wait(devnum: 1: queues: 3)26 !$acc wait(devnum: 1: queues: 3, 4)27 28 !$acc wait(1) if(.true.)29 30 !ERROR: At most one IF clause can appear on the WAIT directive31 !$acc wait(1) if(.true.) if(.false.)32 33 !$acc wait(1) if(.true.) async34 35 !$acc wait(1) if(ifCondition) async36 37 !$acc wait(1) if(.true.) async(1)38 39 !ERROR: At most one ASYNC clause can appear on the WAIT directive40 !$acc wait(1) if(.true.) async(1) async41 42end program openacc_wait_validity43