flang/test/Parser/OpenMP/task.f90

   1 ! REQUIRES: openmp_runtime
   2 ! RUN: %flang_fc1 %openmp_flags -fdebug-dump-parse-tree -fopenmp -fopenmp-version=50  %s | FileCheck --ignore-case %s
   3 ! RUN: %flang_fc1 %openmp_flags -fdebug-unparse -fopenmp -fopenmp-version=50  %s | FileCheck --ignore-case --check-prefix="CHECK-UNPARSE" %s
   4
   5 !CHECK: OmpBlockDirective -> llvm::omp::Directive = task
   6 !CHECK: OmpClauseList -> OmpClause -> Detach -> OmpDetachClause -> OmpObject -> Designator -> DataRef -> Name = 'event'
   7
   8 !CHECK-UNPARSE: INTEGER(KIND=8_4) event
   9 !CHECK-UNPARSE: !$OMP TASK  DETACH(event)
  10 !CHECK-UNPARSE: !$OMP END TASK
  11 subroutine task_detach
  12   use omp_lib
  13   implicit none
  14   integer(kind=omp_event_handle_kind) :: event
  15   !$omp task detach(event)
  16   !$omp end task
  17 end subroutine