71 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=61 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=61 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine f00(n)5 implicit none6 integer :: n7 !$omp target dyn_groupprivate(n)8 !$omp end target9end10 11!UNPARSE: SUBROUTINE f00 (n)12!UNPARSE: IMPLICIT NONE13!UNPARSE: INTEGER n14!UNPARSE: !$OMP TARGET DYN_GROUPPRIVATE(n)15!UNPARSE: !$OMP END TARGET16!UNPARSE: END SUBROUTINE17 18!PARSE-TREE: OmpBeginDirective19!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = target20!PARSE-TREE: | OmpClauseList -> OmpClause -> DynGroupprivate -> OmpDynGroupprivateClause21!PARSE-TREE: | | Scalar -> Integer -> Expr = 'n'22!PARSE-TREE: | | | Designator -> DataRef -> Name = 'n'23!PARSE-TREE: | Flags = {}24 25 26subroutine f01(n)27 implicit none28 integer :: n29 !$omp target dyn_groupprivate(fallback(abort): n)30 !$omp end target31end32 33!UNPARSE: SUBROUTINE f01 (n)34!UNPARSE: IMPLICIT NONE35!UNPARSE: INTEGER n36!UNPARSE: !$OMP TARGET DYN_GROUPPRIVATE(FALLBACK(ABORT): n)37!UNPARSE: !$OMP END TARGET38!UNPARSE: END SUBROUTINE39 40!PARSE-TREE: OmpBeginDirective41!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = target42!PARSE-TREE: | OmpClauseList -> OmpClause -> DynGroupprivate -> OmpDynGroupprivateClause43!PARSE-TREE: | | Modifier -> OmpFallbackModifier -> Value = Abort44!PARSE-TREE: | | Scalar -> Integer -> Expr = 'n'45!PARSE-TREE: | | | Designator -> DataRef -> Name = 'n'46!PARSE-TREE: | Flags = {}47 48 49subroutine f02(n)50 implicit none51 integer :: n52 !$omp target dyn_groupprivate(fallback(default_mem), cgroup: n)53 !$omp end target54end55 56!UNPARSE: SUBROUTINE f02 (n)57!UNPARSE: IMPLICIT NONE58!UNPARSE: INTEGER n59!UNPARSE: !$OMP TARGET DYN_GROUPPRIVATE(FALLBACK(DEFAULT_MEM), CGROUP: n)60!UNPARSE: !$OMP END TARGET61!UNPARSE: END SUBROUTINE62 63!PARSE-TREE: OmpBeginDirective64!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = target65!PARSE-TREE: | OmpClauseList -> OmpClause -> DynGroupprivate -> OmpDynGroupprivateClause66!PARSE-TREE: | | Modifier -> OmpFallbackModifier -> Value = Default_Mem67!PARSE-TREE: | | Modifier -> OmpAccessGroup -> Value = Cgroup68!PARSE-TREE: | | Scalar -> Integer -> Expr = 'n'69!PARSE-TREE: | | | Designator -> DataRef -> Name = 'n'70!PARSE-TREE: | Flags = {}71