flang/test/Parser/OpenMP/scope.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=51 %s | FileCheck --ignore-case %s
   2 ! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=51 %s | FileCheck --check-prefix="PARSE-TREE" %s
   3
   4 program omp_scope
   5   integer i
   6   i = 10
   7
   8 !CHECK: !$OMP SCOPE  PRIVATE(i)
   9 !CHECK: !$OMP END SCOPE
  10
  11 !PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPBlockConstruct
  12 !PARSE-TREE: OmpBeginBlockDirective
  13 !PARSE-TREE: OmpBlockDirective -> llvm::omp::Directive = scope
  14 !PARSE-TREE: OmpClauseList -> OmpClause -> Private -> OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'i'
  15 !PARSE-TREE: Block
  16 !PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> ActionStmt -> PrintStmt
  17 !PARSE-TREE: OmpEndBlockDirective
  18 !PARSE-TREE: OmpBlockDirective -> llvm::omp::Directive = scope
  19 !PARSE-TREE: OmpClauseList -> OmpClause -> Nowait
  20
  21   !$omp scope private(i)
  22   print *, "omp scope", i
  23   !$omp end scope nowait
  24 end program omp_scope