22 lines · plain
1! REQUIRES: openmp_runtime2! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags -fopenmp-version=503! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags -fopenmp-version=514 5! OpenMP Version 5.0: 2.10.16! Various checks for DETACH Clause7 8program detach029 use omp_lib, only: omp_event_handle_kind10 integer(omp_event_handle_kind) :: event_01, event_0211 12 !ERROR: At most one DETACH clause can appear on the TASK directive13 !$omp task detach(event_01) detach(event_02)14 x = x + 115 !$omp end task16 17 !ERROR: Clause MERGEABLE is not allowed if clause DETACH appears on the TASK directive18 !$omp task detach(event_01) mergeable19 x = x + 120 !$omp end task21end program22