flang/test/Parser/OpenMP/reduction-modifier.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck --ignore-case %s
   2 ! RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
   3
   4 subroutine foo()
   5   integer :: i, j
   6   j = 0
   7 ! CHECK: !$OMP DO  REDUCTION(TASK, *: j)
   8 ! PARSE-TREE: | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPLoopConstruct
   9 ! PARSE-TREE: | | | OmpBeginLoopDirective
  10 ! PARSE-TREE: | | | | OmpLoopDirective -> llvm::omp::Directive = do
  11 ! PARSE-TREE: | | | | OmpClauseList -> OmpClause -> Reduction -> OmpReductionClause
  12 ! PARSE-TREE: | | | | | Modifier -> OmpReductionModifier -> Value = Task
  13 ! PARSE-TREE: | | | | | Modifier -> OmpReductionIdentifier -> DefinedOperator -> IntrinsicOperator = Multiply
  14 ! PARSE-TREE: | | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'j
  15   !$omp do reduction (task, *: j)
  16   do i = 1, 10
  17     j = j + 1
  18   end do
  19   !$omp end do
  20 end