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
99 lines
2.7 KiB
Fortran
99 lines
2.7 KiB
Fortran
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52 -Werror -Wno-experimental-option
|
|
|
|
subroutine f10(x)
|
|
integer :: x
|
|
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
|
|
!$omp target map(always, present close, to: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f11(x)
|
|
integer :: x
|
|
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
|
|
!$omp target map(always, present, close to: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f12(x)
|
|
integer :: x
|
|
!WARNING: Duplicate map-type-modifier entry 'PRESENT' will be ignored
|
|
!$omp target map(always, present, close, present, to: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f13(x)
|
|
integer :: x(10)
|
|
!ERROR: The iterator variable must be of integer type
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
!$omp target map(present, iterator(real :: i = 1:10), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f14(x)
|
|
integer :: x(10)
|
|
!ERROR: The begin and end expressions in iterator range-specification are mandatory
|
|
!$omp target map(present, iterator(integer :: i = :10:1), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f15(x)
|
|
integer :: x(10)
|
|
!ERROR: The begin and end expressions in iterator range-specification are mandatory
|
|
!$omp target map(present, iterator(integer :: i = 1:), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f16(x)
|
|
integer :: x(10)
|
|
!ERROR: The begin and end expressions in iterator range-specification are mandatory
|
|
!$omp target map(present, iterator(integer :: i = 1::-1), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f17(x)
|
|
integer :: x(10)
|
|
!WARNING: The step value in the iterator range is 0
|
|
!$omp target map(present, iterator(integer :: i = 1:2:0), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f18(x)
|
|
integer :: x(10)
|
|
!WARNING: The begin value is less than the end value in iterator range-specification with a negative step
|
|
!$omp target map(present, iterator(integer :: i = 1:10:-2), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f19(x)
|
|
integer :: x(10)
|
|
!WARNING: The begin value is greater than the end value in iterator range-specification with a positive step
|
|
!$omp target map(present, iterator(integer :: i = 12:1:2), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f1a(x)
|
|
integer :: x(10)
|
|
!ERROR: 'iterator' modifier cannot occur multiple times
|
|
!$omp target map(present, iterator(i = 1:2), iterator(j = 1:2), to: x(i + j))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f23(x)
|
|
integer :: x(10)
|
|
!ERROR: 'map-type' should be the last modifier
|
|
!$omp target map(present, from, iterator(i = 1:10): x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|