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
65 lines
1.7 KiB
Fortran
65 lines
1.7 KiB
Fortran
! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s --strict-whitespace --check-prefix=CHECK-E
|
|
! RUN: %flang_fc1 -fopenmp -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-OMP
|
|
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-NO-OMP
|
|
|
|
! Test in mixed way, i.e., combination of Fortran free source form
|
|
! and free source form with conditional compilation sentinel.
|
|
! CHECK-LABEL: subroutine mixed_form1()
|
|
! CHECK-E:{{^}} i = 1 &
|
|
! CHECK-E:{{^}}!$ +100&
|
|
! CHECK-E:{{^}}!$ &+ 1000&
|
|
! CHECK-E:{{^}} &+ 10 + 1&
|
|
! CHECK-E:{{^}}!$ & +100000&
|
|
! CHECK-E:{{^}} &0000 + 1000000
|
|
! CHECK-OMP: i=1001001112_4
|
|
! CHECK-NO-OMP: i=1010011_4
|
|
subroutine mixed_form1()
|
|
i = 1 &
|
|
!$ +100&
|
|
!$&+ 1000&
|
|
&+ 10 + 1&
|
|
!$& +100000&
|
|
&0000 + 1000000
|
|
end subroutine
|
|
|
|
! Testing continuation lines in only Fortran Free form Source
|
|
! CHECK-LABEL: subroutine mixed_form2()
|
|
! CHECK-E:{{^}} i = 1 +10 +100 + 1000 + 10000
|
|
! CHECK-OMP: i=11111_4
|
|
! CHECK-NO-OMP: i=11111_4
|
|
subroutine mixed_form2()
|
|
i = 1 &
|
|
+10 &
|
|
&+100
|
|
& + 1000 &
|
|
+ 10000
|
|
end subroutine
|
|
|
|
! Testing continuation line in only free source form conditional compilation sentinel.
|
|
! CHECK-LABEL: subroutine mixed_form3()
|
|
! CHECK-E:{{^}}!$ i=0
|
|
! CHECK-E:{{^}}!$ i = 1 &
|
|
! CHECK-E:{{^}}!$ & +10 &
|
|
! CHECK-E:{{^}}!$ &+100&
|
|
! CHECK-E:{{^}}!$ +1000
|
|
! CHECK-OMP: i=0_4
|
|
! CHECK-OMP: i=1111_4
|
|
! CHECK-NO-OMP-NOT: i=0_4
|
|
subroutine mixed_form3()
|
|
!$ i=0
|
|
!$ i = 1 &
|
|
!$ & +10 &
|
|
!$&+100&
|
|
!$ +1000
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: subroutine regression
|
|
! CHECK-E:{{^}}!$ real x, &
|
|
! CHECK-E:{{^}} stop
|
|
! CHECK-OMP: REAL x, stop
|
|
! CHECK-NO-OMP-NOT: REAL x,
|
|
subroutine regression
|
|
!$ real x, &
|
|
stop
|
|
end
|