65 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp -fopenmp-version=61 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema -fopenmp -fopenmp-version=61 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine f00(x)5 integer, pointer :: x6 !$omp target map(attach(always): x)7 !$omp end target8end9 10!UNPARSE: SUBROUTINE f00 (x)11!UNPARSE: INTEGER, POINTER :: x12!UNPARSE: !$OMP TARGET MAP(ATTACH(ALWAYS): x)13!UNPARSE: !$OMP END TARGET14!UNPARSE: END SUBROUTINE15 16!PARSE-TREE: OmpBeginDirective17!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = target18!PARSE-TREE: | OmpClauseList -> OmpClause -> Map -> OmpMapClause19!PARSE-TREE: | | Modifier -> OmpAttachModifier -> Value = Always20!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'21!PARSE-TREE: | | bool = 'true'22!PARSE-TREE: | Flags = {}23 24 25subroutine f01(x)26 integer, pointer :: x27 !$omp target map(attach(auto): x)28 !$omp end target29end30 31!UNPARSE: SUBROUTINE f01 (x)32!UNPARSE: INTEGER, POINTER :: x33!UNPARSE: !$OMP TARGET MAP(ATTACH(AUTO): x)34!UNPARSE: !$OMP END TARGET35!UNPARSE: END SUBROUTINE36 37!PARSE-TREE: OmpBeginDirective38!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = target39!PARSE-TREE: | OmpClauseList -> OmpClause -> Map -> OmpMapClause40!PARSE-TREE: | | Modifier -> OmpAttachModifier -> Value = Auto41!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'42!PARSE-TREE: | | bool = 'true'43!PARSE-TREE: | Flags = {}44 45 46subroutine f02(x)47 integer, pointer :: x48 !$omp target map(attach(never): x)49 !$omp end target50end51 52!UNPARSE: SUBROUTINE f02 (x)53!UNPARSE: INTEGER, POINTER :: x54!UNPARSE: !$OMP TARGET MAP(ATTACH(NEVER): x)55!UNPARSE: !$OMP END TARGET56!UNPARSE: END SUBROUTINE57 58!PARSE-TREE: OmpBeginDirective59!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = target60!PARSE-TREE: | OmpClauseList -> OmpClause -> Map -> OmpMapClause61!PARSE-TREE: | | Modifier -> OmpAttachModifier -> Value = Never62!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'63!PARSE-TREE: | | bool = 'true'64!PARSE-TREE: | Flags = {}65