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
98 lines
4.3 KiB
Fortran
98 lines
4.3 KiB
Fortran
! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
! CHECK-LABEL: func @_QQmain() {
|
|
! CHECK: %[[VAL_0:.*]] = fir.address_of(@_QFEa) : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: %[[A:.*]]:2 = hlfir.declare %[[VAL_0]](%{{.*}}) {uniq_name = "_QFEa"}
|
|
! CHECK: %[[VAL_2:.*]] = fir.address_of(@_QFEb) : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: %[[B:.*]]:2 = hlfir.declare %[[VAL_2]](%{{.*}}) {uniq_name = "_QFEb"}
|
|
|
|
! Statement: where (a > 4.0) b = -a
|
|
! CHECK: hlfir.where {
|
|
! CHECK: %[[CST_4:.*]] = arith.constant 4.000000e+00 : f32
|
|
! CHECK: %[[MASK1:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<4>> {
|
|
! CHECK: arith.cmpf ogt, %{{.*}}, %[[CST_4]] {{.*}}: f32
|
|
! CHECK: }
|
|
! CHECK: hlfir.yield %[[MASK1]] : !hlfir.expr<10x!fir.logical<4>> cleanup {
|
|
! CHECK: hlfir.destroy %[[MASK1]] : !hlfir.expr<10x!fir.logical<4>>
|
|
! CHECK: }
|
|
! CHECK: } do {
|
|
! CHECK: hlfir.region_assign {
|
|
! CHECK: %[[NEG:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf32> {
|
|
! CHECK: arith.negf %{{.*}}
|
|
! CHECK: }
|
|
! CHECK: hlfir.yield %[[NEG]] : !hlfir.expr<10xf32>
|
|
! CHECK: } to {
|
|
! CHECK: hlfir.yield %[[B]]#0 : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: }
|
|
! CHECK: }
|
|
|
|
! Construct: where (a > 100.0) b = 2.0 * a
|
|
! elsewhere (a > 50.0) b = 3.0 + a; a = a - 1.0
|
|
! elsewhere a = a / 2.0
|
|
! CHECK: hlfir.where {
|
|
! CHECK: %[[CST_100:.*]] = arith.constant 1.000000e+02 : f32
|
|
! CHECK: hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<4>> {
|
|
! CHECK: arith.cmpf ogt, %{{.*}}, %[[CST_100]] {{.*}}: f32
|
|
! CHECK: }
|
|
! CHECK: } do {
|
|
! CHECK: hlfir.region_assign {
|
|
! CHECK: %[[CST_2:.*]] = arith.constant 2.000000e+00 : f32
|
|
! CHECK: hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf32> {
|
|
! CHECK: arith.mulf %[[CST_2]], %{{.*}}
|
|
! CHECK: }
|
|
! CHECK: } to {
|
|
! CHECK: hlfir.yield %[[B]]#0 : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: }
|
|
! CHECK: hlfir.elsewhere mask {
|
|
! CHECK: %[[CST_50:.*]] = arith.constant 5.000000e+01 : f32
|
|
! CHECK: hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<4>> {
|
|
! CHECK: arith.cmpf ogt, %{{.*}}, %[[CST_50]] {{.*}}: f32
|
|
! CHECK: }
|
|
! CHECK: } do {
|
|
! CHECK: hlfir.region_assign {
|
|
! CHECK: %[[CST_3:.*]] = arith.constant 3.000000e+00 : f32
|
|
! CHECK: hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf32> {
|
|
! CHECK: arith.addf %[[CST_3]], %{{.*}}
|
|
! CHECK: }
|
|
! CHECK: } to {
|
|
! CHECK: hlfir.yield %[[B]]#0 : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: }
|
|
! CHECK: hlfir.region_assign {
|
|
! CHECK: %[[CST_1:.*]] = arith.constant 1.000000e+00 : f32
|
|
! CHECK: hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf32> {
|
|
! CHECK: arith.subf %{{.*}}, %[[CST_1]]
|
|
! CHECK: }
|
|
! CHECK: } to {
|
|
! CHECK: hlfir.yield %[[A]]#0 : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: }
|
|
! CHECK: hlfir.elsewhere do {
|
|
! CHECK: hlfir.region_assign {
|
|
! CHECK: %[[CST_2_2:.*]] = arith.constant 2.000000e+00 : f32
|
|
! CHECK: hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf32> {
|
|
! CHECK: arith.divf %{{.*}}, %[[CST_2_2]]
|
|
! CHECK: }
|
|
! CHECK: } to {
|
|
! CHECK: hlfir.yield %[[A]]#0 : !fir.ref<!fir.array<10xf32>>
|
|
! CHECK: }
|
|
! CHECK: }
|
|
! CHECK: }
|
|
! CHECK: }
|
|
! CHECK: return
|
|
! CHECK: }
|
|
|
|
real :: a(10), b(10)
|
|
|
|
! Statement
|
|
where (a > 4.0) b = -a
|
|
|
|
! Construct
|
|
where (a > 100.0)
|
|
b = 2.0 * a
|
|
elsewhere (a > 50.0)
|
|
b = 3.0 + a
|
|
a = a - 1.0
|
|
elsewhere
|
|
a = a / 2.0
|
|
end where
|
|
end
|