flang/test/Parser/OpenMP/proc-bind.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s
   2 ! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
   3
   4 ! CHECK: !$OMP PARALLEL  PROC_BIND(PRIMARY)
   5
   6 ! PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPBlockConstruct
   7 ! PARSE-TREE:  OmpBeginBlockDirective
   8 ! PARSE-TREE:   OmpBlockDirective -> llvm::omp::Directive = parallel
   9 ! PARSE-TREE:   OmpClauseList -> OmpClause -> ProcBind -> OmpProcBindClause -> AffinityPolicy = Primary
  10 subroutine sb1
  11   !$omp parallel proc_bind(primary)
  12   print *, "Hello"
  13   !$omp end parallel
  14 end subroutine