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
155 lines
7.1 KiB
Fortran
155 lines
7.1 KiB
Fortran
! REQUIRES: openmp_runtime
|
|
! RUN: %flang_fc1 -fdebug-unparse -fopenmp-version=60 %openmp_flags %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
|
|
! RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema -fopenmp-version=60 %openmp_flags %s | FileCheck --check-prefix="PARSE-TREE" %s
|
|
|
|
SUBROUTINE test_interop_01()
|
|
!$OMP INTEROP DEVICE(1)
|
|
PRINT *,'pass'
|
|
END SUBROUTINE test_interop_01
|
|
|
|
!UNPARSE: SUBROUTINE test_interop_01
|
|
!UNPARSE: !$OMP INTEROP DEVICE(1_4)
|
|
!UNPARSE: PRINT *, "pass"
|
|
!UNPARSE: END SUBROUTINE test_interop_01
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = interop
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> Device -> OmpDeviceClause
|
|
!PARSE-TREE: | | Scalar -> Integer -> Expr -> LiteralConstant -> IntLiteralConstant = '1'
|
|
!PARSE-TREE: | Flags = {}
|
|
|
|
|
|
SUBROUTINE test_interop_02()
|
|
USE omp_lib
|
|
INTEGER(OMP_INTEROP_KIND) :: obj1, obj2, obj3
|
|
!$OMP INTEROP INIT(TARGETSYNC: obj) USE(obj1) DESTROY(obj3)
|
|
PRINT *,'pass'
|
|
END SUBROUTINE test_interop_02
|
|
|
|
!UNPARSE: SUBROUTINE test_interop_02
|
|
!UNPARSE: USE :: omp_lib
|
|
!UNPARSE: INTEGER(KIND=8_4) obj1, obj2, obj3
|
|
!UNPARSE: !$OMP INTEROP INIT(TARGETSYNC: obj) USE(obj1) DESTROY(obj3)
|
|
!UNPARSE: PRINT *, "pass"
|
|
!UNPARSE: END SUBROUTINE test_interop_02
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = interop
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> Init -> OmpInitClause
|
|
!PARSE-TREE: | | Modifier -> OmpInteropType -> Value = Targetsync
|
|
!PARSE-TREE: | | OmpObject -> Designator -> DataRef -> Name = 'obj'
|
|
!PARSE-TREE: | OmpClause -> Use -> OmpUseClause -> OmpObject -> Designator -> DataRef -> Name = 'obj1'
|
|
!PARSE-TREE: | OmpClause -> Destroy -> OmpDestroyClause -> OmpObject -> Designator -> DataRef -> Name = 'obj3'
|
|
!PARSE-TREE: | Flags = {}
|
|
|
|
|
|
SUBROUTINE test_interop_03()
|
|
USE omp_lib
|
|
INTEGER(OMP_INTEROP_KIND) :: obj
|
|
!$OMP INTEROP INIT(TARGETSYNC: obj) DEPEND(INOUT: obj)
|
|
PRINT *,'pass'
|
|
END SUBROUTINE test_interop_03
|
|
|
|
!UNPARSE: SUBROUTINE test_interop_03
|
|
!UNPARSE: USE :: omp_lib
|
|
!UNPARSE: INTEGER(KIND=8_4) obj
|
|
!UNPARSE: !$OMP INTEROP INIT(TARGETSYNC: obj) DEPEND(INOUT: obj)
|
|
!UNPARSE: PRINT *, "pass"
|
|
!UNPARSE: END SUBROUTINE test_interop_03
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = interop
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> Init -> OmpInitClause
|
|
!PARSE-TREE: | | Modifier -> OmpInteropType -> Value = Targetsync
|
|
!PARSE-TREE: | | OmpObject -> Designator -> DataRef -> Name = 'obj'
|
|
!PARSE-TREE: | OmpClause -> Depend -> OmpDependClause -> TaskDep
|
|
!PARSE-TREE: | | Modifier -> OmpTaskDependenceType -> OmpDependenceKind = Inout
|
|
!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'obj'
|
|
!PARSE-TREE: | Flags = {}
|
|
|
|
|
|
SUBROUTINE test_interop_04()
|
|
USE omp_lib
|
|
INTEGER(OMP_INTEROP_KIND) :: obj
|
|
INTEGER, DIMENSION(1,10) :: arr
|
|
!$OMP INTEROP INIT(PREFER_TYPE("cuda"),TARGETSYNC,TARGET: obj) DEPEND(INOUT: arr) NOWAIT
|
|
PRINT *,'pass'
|
|
END SUBROUTINE test_interop_04
|
|
|
|
!UNPARSE: SUBROUTINE test_interop_04
|
|
!UNPARSE: USE :: omp_lib
|
|
!UNPARSE: INTEGER(KIND=8_4) obj
|
|
!UNPARSE: INTEGER, DIMENSION(1_4,10_4) :: arr
|
|
!UNPARSE: !$OMP INTEROP INIT(PREFER_TYPE("cuda"), TARGETSYNC, TARGET: obj) DEPEND(INOUT: arr) &
|
|
!UNPARSE: !$OMP&NOWAIT
|
|
!UNPARSE: PRINT *, "pass"
|
|
!UNPARSE: END SUBROUTINE test_interop_04
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = interop
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> Init -> OmpInitClause
|
|
!PARSE-TREE: | | Modifier -> OmpPreferType -> OmpPreferenceSpecification -> Expr -> LiteralConstant -> CharLiteralConstant
|
|
!PARSE-TREE: | | | string = 'cuda'
|
|
!PARSE-TREE: | | Modifier -> OmpInteropType -> Value = Targetsync
|
|
!PARSE-TREE: | | Modifier -> OmpInteropType -> Value = Target
|
|
!PARSE-TREE: | | OmpObject -> Designator -> DataRef -> Name = 'obj'
|
|
!PARSE-TREE: | OmpClause -> Depend -> OmpDependClause -> TaskDep
|
|
!PARSE-TREE: | | Modifier -> OmpTaskDependenceType -> OmpDependenceKind = Inout
|
|
!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'arr'
|
|
!PARSE-TREE: | OmpClause -> Nowait
|
|
!PARSE-TREE: | Flags = {}
|
|
|
|
|
|
SUBROUTINE test_interop_05()
|
|
USE omp_lib
|
|
INTEGER(OMP_INTEROP_KIND) :: obj
|
|
!$OMP INTEROP INIT(PREFER_TYPE(omp_ifr_sycl), TARGETSYNC: obj) DEVICE(DEVICE_NUM:0)
|
|
PRINT *,'pass'
|
|
END SUBROUTINE test_interop_05
|
|
|
|
!UNPARSE: SUBROUTINE test_interop_05
|
|
!UNPARSE: USE :: omp_lib
|
|
!UNPARSE: INTEGER(KIND=8_4) obj
|
|
!UNPARSE: !$OMP INTEROP INIT(PREFER_TYPE(4_4), TARGETSYNC: obj) DEVICE(DEVICE_NUM: 0_4)
|
|
!UNPARSE: PRINT *, "pass"
|
|
!UNPARSE: END SUBROUTINE test_interop_05
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = interop
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> Init -> OmpInitClause
|
|
!PARSE-TREE: | | Modifier -> OmpPreferType -> OmpPreferenceSpecification -> Expr -> Designator -> DataRef -> Name = 'omp_ifr_sycl'
|
|
!PARSE-TREE: | | Modifier -> OmpInteropType -> Value = Targetsync
|
|
!PARSE-TREE: | | OmpObject -> Designator -> DataRef -> Name = 'obj'
|
|
!PARSE-TREE: | OmpClause -> Device -> OmpDeviceClause
|
|
!PARSE-TREE: | | Modifier -> OmpDeviceModifier -> Value = Device_Num
|
|
!PARSE-TREE: | | Scalar -> Integer -> Expr -> LiteralConstant -> IntLiteralConstant = '0'
|
|
!PARSE-TREE: | Flags = {}
|
|
|
|
|
|
SUBROUTINE test_interop_06()
|
|
USE omp_lib
|
|
INTEGER(KIND=OMP_INTEROP_KIND) :: obj
|
|
!$OMP INTEROP INIT(PREFER_TYPE({FR("some_runtime"), ATTR("ext1", "ext2")}), TARGETSYNC: obj)
|
|
PRINT *, 'pass'
|
|
END
|
|
|
|
!UNPARSE: SUBROUTINE test_interop_06
|
|
!UNPARSE: USE :: omp_lib
|
|
!UNPARSE: INTEGER(KIND=8_4) obj
|
|
!UNPARSE: !$OMP INTEROP INIT(PREFER_TYPE({FR("some_runtime"), ATTR("ext1", "ext2")}), TARGETSYNC: obj)
|
|
!UNPARSE: PRINT *, "pass"
|
|
!UNPARSE: END SUBROUTINE
|
|
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
|
|
!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = interop
|
|
!PARSE-TREE: | OmpClauseList -> OmpClause -> Init -> OmpInitClause
|
|
!PARSE-TREE: | | Modifier -> OmpPreferType -> OmpPreferenceSpecification -> OmpPreferenceSelector -> Expr -> LiteralConstant -> CharLiteralConstant
|
|
!PARSE-TREE: | | | string = 'some_runtime'
|
|
!PARSE-TREE: | | OmpPreferenceSelector -> Expr -> LiteralConstant -> CharLiteralConstant
|
|
!PARSE-TREE: | | | string = 'ext1'
|
|
!PARSE-TREE: | | Expr -> LiteralConstant -> CharLiteralConstant
|
|
!PARSE-TREE: | | | string = 'ext2'
|
|
!PARSE-TREE: | | Modifier -> OmpInteropType -> Value = Targetsync
|
|
!PARSE-TREE: | | OmpObject -> Designator -> DataRef -> Name = 'obj'
|
|
!PARSE-TREE: | Flags = {}
|