31 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 none6 7integer :: x, y(10), z8!$omp groupprivate(x, y) device_type(nohost)9!$omp groupprivate(z)10 11end module12 13!UNPARSE: MODULE m14!UNPARSE: IMPLICIT NONE15!UNPARSE: INTEGER x, y(10_4), z16!UNPARSE: !$OMP GROUPPRIVATE(x, y) DEVICE_TYPE(NOHOST)17!UNPARSE: !$OMP GROUPPRIVATE(z)18!UNPARSE: END MODULE19 20!PARSE-TREE: DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPGroupprivate -> OmpDirectiveSpecification21!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = groupprivate22!PARSE-TREE: | OmpArgumentList -> OmpArgument -> OmpLocator -> OmpObject -> Designator -> DataRef -> Name = 'x'23!PARSE-TREE: | OmpArgument -> OmpLocator -> OmpObject -> Designator -> DataRef -> Name = 'y'24!PARSE-TREE: | OmpClauseList -> OmpClause -> DeviceType -> OmpDeviceTypeClause -> DeviceTypeDescription = Nohost25!PARSE-TREE: | Flags = {}26!PARSE-TREE: DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPGroupprivate -> OmpDirectiveSpecification27!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = groupprivate28!PARSE-TREE: | OmpArgumentList -> OmpArgument -> OmpLocator -> OmpObject -> Designator -> DataRef -> Name = 'z'29!PARSE-TREE: | OmpClauseList ->30!PARSE-TREE: | Flags = {}31