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
97 lines
1.7 KiB
Fortran
97 lines
1.7 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s 2>&1 | FileCheck %s
|
|
|
|
#define DIR_START !dir$
|
|
#define DIR_CONT !dir$&
|
|
#define FIRST(x) DIR_START x
|
|
#define NEXT(x) DIR_CONT x
|
|
#define AMPER &
|
|
#define COMMENT !
|
|
#define OMP_START !$omp
|
|
#define OMP_CONT !$omp&
|
|
#define EMPTY
|
|
|
|
module m
|
|
contains
|
|
subroutine s1(x1, x2, x3, x4, x5, x6, x7)
|
|
|
|
!dir$ ignore_tkr x1
|
|
|
|
!dir$ ignore_tkr &
|
|
!dir$& x2
|
|
|
|
DIR_START ignore_tkr x3
|
|
|
|
!dir$ ignore_tkr AMPER
|
|
DIR_CONT x4
|
|
|
|
FIRST(ignore_tkr &)
|
|
!dir$& x5
|
|
|
|
FIRST(ignore_tkr &)
|
|
NEXT(x6)
|
|
|
|
COMMENT blah &
|
|
COMMENT & more
|
|
stop 1
|
|
|
|
OMP_START parallel &
|
|
OMP_START do &
|
|
OMP_START reduction(+:x)
|
|
do j1 = 1, n
|
|
end do
|
|
|
|
OMP_START parallel &
|
|
OMP_START & do &
|
|
OMP_START & reduction(+:x)
|
|
do j2 = 1, n
|
|
end do
|
|
|
|
OMP_START parallel &
|
|
OMP_CONT do &
|
|
OMP_CONT reduction(+:x)
|
|
do j3 = 1, n
|
|
end do
|
|
|
|
EMPTY !$omp parallel &
|
|
EMPTY !$omp do
|
|
do j4 = 1, n
|
|
end do
|
|
end
|
|
|
|
COMMENT &
|
|
subroutine s2
|
|
end subroutine
|
|
COMMENT&
|
|
subroutine s3
|
|
end subroutine
|
|
end module
|
|
|
|
!CHECK: MODULE m
|
|
!CHECK: CONTAINS
|
|
!CHECK: SUBROUTINE s1 (x1, x2, x3, x4, x5, x6, x7)
|
|
!CHECK: !DIR$ IGNORE_TKR x1
|
|
!CHECK: !DIR$ IGNORE_TKR x2
|
|
!CHECK: !DIR$ IGNORE_TKR x3
|
|
!CHECK: !DIR$ IGNORE_TKR x4
|
|
!CHECK: !DIR$ IGNORE_TKR x5
|
|
!CHECK: !DIR$ IGNORE_TKR x6
|
|
!CHECK: STOP 1_4
|
|
!CHECK: !$OMP PARALLEL DO REDUCTION(+: x)
|
|
!CHECK: DO j1=1_4,n
|
|
!CHECK: END DO
|
|
!CHECK: !$OMP PARALLEL DO REDUCTION(+: x)
|
|
!CHECK: DO j2=1_4,n
|
|
!CHECK: END DO
|
|
!CHECK: !$OMP PARALLEL DO REDUCTION(+: x)
|
|
!CHECK: DO j3=1_4,n
|
|
!CHECK: END DO
|
|
!CHECK: !$OMP PARALLEL DO
|
|
!CHECK: DO j4=1_4,n
|
|
!CHECK: END DO
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: SUBROUTINE s2
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: SUBROUTINE s3
|
|
!CHECK: END SUBROUTINE
|
|
!CHECK: END MODULE
|