derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
252 lines
12 KiB
Fortran
252 lines
12 KiB
Fortran
!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=52 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
|
|
!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=52 %s | FileCheck --check-prefix="PARSE-TREE" %s
|
|
|
|
subroutine f00
|
|
continue
|
|
!$omp metadirective when(construct={target, parallel}: nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f00
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(CONSTRUCT={TARGET, PARALLEL}: NOTHING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Construct
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> llvm::omp::Directive = target
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> llvm::omp::Directive = parallel
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
|
|
subroutine f01
|
|
continue
|
|
!$omp metadirective when(target_device={kind(host), device_num(1)}: nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f01
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(TARGET_DEVICE={KIND(host), DEVICE_NUM(1_4)}: NOTHING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Target_Device
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Kind
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpTraitPropertyName -> string = 'host'
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Device_Num
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> Scalar -> Expr = '1_4'
|
|
!PARSE-TREE: | | | | | | LiteralConstant -> IntLiteralConstant = '1'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
|
|
subroutine f02
|
|
continue
|
|
!$omp metadirective when(target_device={kind(any), device_num(7)}: nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f02
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(TARGET_DEVICE={KIND(any), DEVICE_NUM(7_4)}: NOTHING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Target_Device
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Kind
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpTraitPropertyName -> string = 'any'
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Device_Num
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> Scalar -> Expr = '7_4'
|
|
!PARSE-TREE: | | | | | | LiteralConstant -> IntLiteralConstant = '7'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
|
|
subroutine f03
|
|
continue
|
|
!$omp metadirective &
|
|
!$omp & when(implementation={atomic_default_mem_order(acq_rel)}: nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f03
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(IMPLEMENTATION={ATOMIC_DEFAULT_MEM_ORDER(ACQ_REL)}: N&
|
|
!UNPARSE: !$OMP&OTHING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Implementation
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Atomic_Default_Mem_Order
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpClause -> AcqRel
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
|
|
subroutine f04
|
|
continue
|
|
!$omp metadirective &
|
|
!$omp when(implementation={extension_trait(haha(1), foo(baz, "bar"(1)))}: nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f04
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(IMPLEMENTATION={extension_trait(haha(1_4), foo(baz,bar(1_4)&
|
|
!UNPARSE: !$OMP&))}: NOTHING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Implementation
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> string = 'extension_trait'
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpTraitPropertyExtension -> Complex
|
|
!PARSE-TREE: | | | | | | OmpTraitPropertyName -> string = 'haha'
|
|
!PARSE-TREE: | | | | | | OmpTraitPropertyExtension -> Scalar -> Expr = '1_4'
|
|
!PARSE-TREE: | | | | | | | LiteralConstant -> IntLiteralConstant = '1'
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpTraitPropertyExtension
|
|
!PARSE-TREE: | | | | | | OmpTraitPropertyName -> string = 'foo'
|
|
!PARSE-TREE: | | | | | | OmpTraitPropertyExtension -> OmpTraitPropertyName -> string = 'baz'
|
|
!PARSE-TREE: | | | | | | OmpTraitPropertyExtension -> Complex
|
|
!PARSE-TREE: | | | | | | | OmpTraitPropertyName -> string = 'bar'
|
|
!PARSE-TREE: | | | | | | | OmpTraitPropertyExtension -> Scalar -> Expr = '1_4'
|
|
!PARSE-TREE: | | | | | | | | LiteralConstant -> IntLiteralConstant = '1'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
|
|
subroutine f05(x)
|
|
integer :: x
|
|
continue
|
|
!$omp metadirective &
|
|
!$omp & when(user={condition(score(100): .true.)}: &
|
|
!$omp & parallel do reduction(+: x)) &
|
|
!$omp & otherwise(nothing)
|
|
do i = 1, 10
|
|
enddo
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f05 (x)
|
|
!UNPARSE: INTEGER x
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(USER={CONDITION(SCORE(100_4): .true._4)}: PARALLEL DO REDUCTION(+:&
|
|
!UNPARSE: !$OMP& x)) OTHERWISE(NOTHING)
|
|
!UNPARSE: DO i=1_4,10_4
|
|
!UNPARSE: END DO
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = User
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Condition
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitScore -> Scalar -> Integer -> Expr = '100_4'
|
|
!PARSE-TREE: | | | | | | LiteralConstant -> IntLiteralConstant = '100'
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> Scalar -> Expr = '.true._4'
|
|
!PARSE-TREE: | | | | | | LiteralConstant -> LogicalLiteralConstant
|
|
!PARSE-TREE: | | | | | | | bool = 'true'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = parallel do
|
|
!PARSE-TREE: | | | OmpClauseList -> OmpClause -> Reduction -> OmpReductionClause
|
|
!PARSE-TREE: | | | | Modifier -> OmpReductionIdentifier -> DefinedOperator -> IntrinsicOperator = Add
|
|
!PARSE-TREE: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
|
|
!PARSE-TREE: | OmpClause -> Otherwise -> OmpOtherwiseClause -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | OmpClauseList ->
|
|
|
|
subroutine f06
|
|
continue
|
|
! Two trait set selectors
|
|
!$omp metadirective &
|
|
!$omp & when(implementation={vendor("amd")}, &
|
|
!$omp & user={condition(.true.)}: nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f06
|
|
!UNPARSE: CONTINUE
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(IMPLEMENTATION={VENDOR(amd)}, USER={CONDITION(.true._4)}: NOT&
|
|
!UNPARSE: !$OMP&HING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Implementation
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Vendor
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpTraitPropertyName -> string = 'amd'
|
|
!PARSE-TREE: | | OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = User
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Condition
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> Scalar -> Expr = '.true._4'
|
|
!PARSE-TREE: | | | | | | LiteralConstant -> LogicalLiteralConstant
|
|
!PARSE-TREE: | | | | | | | bool = 'true'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
|
|
subroutine f07
|
|
! Declarative metadirective
|
|
!$omp metadirective &
|
|
!$omp & when(implementation={vendor("amd")}: declare simd) &
|
|
!$omp & when(user={condition(.true.)}: declare target) &
|
|
!$omp & otherwise(nothing)
|
|
end
|
|
|
|
!UNPARSE: SUBROUTINE f07
|
|
!UNPARSE: !$OMP METADIRECTIVE WHEN(IMPLEMENTATION={VENDOR(amd)}: DECLARE SIMD) WHEN(USER&
|
|
!UNPARSE: !$OMP&={CONDITION(.true._4)}: DECLARE TARGET) OTHERWISE(NOTHING)
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: OpenMPDeclarativeConstruct -> OmpMetadirectiveDirective
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = Implementation
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Vendor
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> OmpTraitPropertyName -> string = 'amd'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = declare simd
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
!PARSE-TREE: | OmpClause -> When -> OmpWhenClause
|
|
!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector
|
|
!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = User
|
|
!PARSE-TREE: | | | OmpTraitSelector
|
|
!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Condition
|
|
!PARSE-TREE: | | | | Properties
|
|
!PARSE-TREE: | | | | | OmpTraitProperty -> Scalar -> Expr = '.true._4'
|
|
!PARSE-TREE: | | | | | | LiteralConstant -> LogicalLiteralConstant
|
|
!PARSE-TREE: | | | | | | | bool = 'true'
|
|
!PARSE-TREE: | | OmpDirectiveSpecification
|
|
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = declare target
|
|
!PARSE-TREE: | | | OmpClauseList ->
|
|
!PARSE-TREE: | OmpClause -> Otherwise -> OmpOtherwiseClause -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | | OmpDirectiveName -> llvm::omp::Directive = nothing
|
|
!PARSE-TREE: | | OmpClauseList ->
|