ad5778ff16
Since ODS doesn't store a list of OmpObjects (i.e. not as OmpObjectList), some semantics-checking functions needed to be updated to operate on a single object at a time.
26 lines
945 B
Fortran
26 lines
945 B
Fortran
!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=60 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
|
|
!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=60 %s | FileCheck --check-prefix="PARSE-TREE" %s
|
|
|
|
module m
|
|
implicit none
|
|
integer :: a, b
|
|
common /blk/ a
|
|
|
|
!$omp threadprivate(/blk/, b)
|
|
|
|
end module
|
|
|
|
!UNPARSE: MODULE m
|
|
!UNPARSE: IMPLICIT NONE
|
|
!UNPARSE: INTEGER a, b
|
|
!UNPARSE: COMMON /blk/a
|
|
!UNPARSE: !$OMP THREADPRIVATE(/blk/, b)
|
|
!UNPARSE: END MODULE
|
|
|
|
!PARSE-TREE: DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPThreadprivate -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = threadprivate
|
|
!PARSE-TREE: | OmpArgumentList -> OmpArgument -> OmpLocator -> OmpObject -> Name = 'blk'
|
|
!PARSE-TREE: | OmpArgument -> OmpLocator -> OmpObject -> Designator -> DataRef -> Name = 'b'
|
|
!PARSE-TREE: | OmpClauseList ->
|
|
!PARSE-TREE: | Flags = None
|