24 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=50 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine f005 integer :: x6!$omp taskgroup task_reduction(+: x)7 x = x + 18!$omp end taskgroup9end10 11!UNPARSE: SUBROUTINE f0012!UNPARSE: INTEGER x13!UNPARSE: !$OMP TASKGROUP TASK_REDUCTION(+: x)14!UNPARSE: x=x+1_415!UNPARSE: !$OMP END TASKGROUP16!UNPARSE: END SUBROUTINE17 18!PARSE-TREE: OmpBeginDirective19!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = taskgroup20!PARSE-TREE: | OmpClauseList -> OmpClause -> TaskReduction -> OmpTaskReductionClause21!PARSE-TREE: | | Modifier -> OmpReductionIdentifier -> DefinedOperator -> IntrinsicOperator = Add22!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'23!PARSE-TREE: Block24