26 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=60 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=60 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4module m5implicit none6integer :: a, b7common /blk/ a8 9!$omp threadprivate(/blk/, b)10 11end module12 13!UNPARSE: MODULE m14!UNPARSE: IMPLICIT NONE15!UNPARSE: INTEGER a, b16!UNPARSE: COMMON /blk/a17!UNPARSE: !$OMP THREADPRIVATE(/blk/, b)18!UNPARSE: END MODULE19 20!PARSE-TREE: DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPThreadprivate -> OmpDirectiveSpecification21!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = threadprivate22!PARSE-TREE: | OmpArgumentList -> OmpArgument -> OmpLocator -> OmpObject -> Name = 'blk'23!PARSE-TREE: | OmpArgument -> OmpLocator -> OmpObject -> Designator -> DataRef -> Name = 'b'24!PARSE-TREE: | OmpClauseList ->25!PARSE-TREE: | Flags = {}26