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
302 lines
18 KiB
Fortran
302 lines
18 KiB
Fortran
! RUN: bbc -o - -emit-hlfir %s | FileCheck %s
|
|
|
|
! Test lowering of operations sub-expression inside elemental call arguments.
|
|
! This tests array contexts where an address is needed for each element (for
|
|
! the argument), but part of the array sub-expression must be lowered by value
|
|
! (for the operation)
|
|
|
|
module test_ops
|
|
interface
|
|
integer elemental function elem_func(i)
|
|
integer, intent(in) :: i
|
|
end function
|
|
integer elemental function elem_func_logical(l)
|
|
logical(8), intent(in) :: l
|
|
end function
|
|
integer elemental function elem_func_logical4(l)
|
|
logical, intent(in) :: l
|
|
end function
|
|
integer elemental function elem_func_real(x)
|
|
real(8), value :: x
|
|
end function
|
|
end interface
|
|
integer :: i(10), j(10), iscalar
|
|
logical(8) :: a(10), b(10)
|
|
real(8) :: x(10), y(10)
|
|
complex(8) :: z1(10), z2
|
|
|
|
contains
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_binary_ops() {
|
|
subroutine check_binary_ops()
|
|
print *, elem_func(i+j)
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xi32>>, index) -> !fir.ref<i32>
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xi32>>, index) -> !fir.ref<i32>
|
|
! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_37]] : !fir.ref<i32>
|
|
! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_38]] : !fir.ref<i32>
|
|
! CHECK: %[[VAL_41:.*]] = arith.addi %[[VAL_39]], %[[VAL_40]] : i32
|
|
! CHECK: hlfir.yield_element %[[VAL_41]] : i32
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10xi32>, index) -> i32
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func(%[[VAL_38]]#0) {{.*}} : (!fir.ref<i32>) -> i32
|
|
! CHECK: hlfir.end_associate %[[VAL_38]]#1, %[[VAL_38]]#2 : !fir.ref<i32>, i1
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_binary_ops_2() {
|
|
subroutine check_binary_ops_2()
|
|
print *, elem_func(i*iscalar)
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xi32>>, index) -> !fir.ref<i32>
|
|
! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_38]] : !fir.ref<i32>
|
|
! CHECK: %[[VAL_40:.*]] = arith.muli %[[VAL_39]], %{{.*}} : i32
|
|
! CHECK: hlfir.yield_element %[[VAL_40]] : i32
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_31:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.apply %[[VAL_30]], %[[ARG0]] : (!hlfir.expr<10xi32>, index) -> i32
|
|
! CHECK: %[[VAL_39:.*]]:3 = hlfir.associate %[[VAL_38]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
|
|
! CHECK: %[[VAL_40:.*]] = fir.call @_QPelem_func(%[[VAL_39]]#0) {{.*}} : (!fir.ref<i32>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_40]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_negate() {
|
|
subroutine check_negate()
|
|
print *, elem_func(-i)
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xi32>>, index) -> !fir.ref<i32>
|
|
! CHECK: %[[VAL_38:.*]] = fir.load %[[VAL_37]] : !fir.ref<i32>
|
|
! CHECK: %[[VAL_39:.*]] = arith.subi %c0_i32, %[[VAL_38]] : i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10xi32>, index) -> i32
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func(%[[VAL_38]]#0) {{.*}} : (!fir.ref<i32>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_convert() {
|
|
subroutine check_convert()
|
|
print *, elem_func(int(x))
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xf64>>, index) -> !fir.ref<f64>
|
|
! CHECK: %[[VAL_38:.*]] = fir.load %[[VAL_37]] : !fir.ref<f64>
|
|
! CHECK: %[[VAL_39:.*]] = fir.convert %[[VAL_38]] : (f64) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10xi32>, index) -> i32
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func(%[[VAL_38]]#0) {{.*}} : (!fir.ref<i32>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_exteremum() {
|
|
subroutine check_exteremum()
|
|
print *, elem_func(min(i, j))
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xi32>>, index) -> !fir.ref<i32>
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xi32>>, index) -> !fir.ref<i32>
|
|
! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_37]] : !fir.ref<i32>
|
|
! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_38]] : !fir.ref<i32>
|
|
! CHECK: %[[VAL_42:.*]] = arith.minsi %[[VAL_39]], %[[VAL_40]] : i32
|
|
! CHECK: hlfir.yield_element %[[VAL_42]] : i32
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10xi32>, index) -> i32
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func(%[[VAL_38]]#0) {{.*}} : (!fir.ref<i32>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_logical_unary_ops() {
|
|
subroutine check_logical_unary_ops()
|
|
print *, elem_func_logical(.not.b)
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<8>> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10x!fir.logical<8>>>, index) -> !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_38:.*]] = fir.load %[[VAL_37]] : !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_39:.*]] = fir.convert %[[VAL_38]] : (!fir.logical<8>) -> i1
|
|
! CHECK: %[[VAL_40:.*]] = arith.xori %[[VAL_39]], %true : i1
|
|
! CHECK: %[[VAL_41:.*]] = fir.convert %[[VAL_40]] : (i1) -> !fir.logical<8>
|
|
! CHECK: hlfir.yield_element %[[VAL_41]] : !fir.logical<8>
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10x!fir.logical<8>>, index) -> !fir.logical<8>
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (!fir.logical<8>) -> (!fir.ref<!fir.logical<8>>, !fir.ref<!fir.logical<8>>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func_logical(%[[VAL_38]]#0) {{.*}} : (!fir.ref<!fir.logical<8>>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_logical_binary_ops() {
|
|
subroutine check_logical_binary_ops()
|
|
print *, elem_func_logical(a.eqv.b)
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<8>> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10x!fir.logical<8>>>, index) -> !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10x!fir.logical<8>>>, index) -> !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_37]] : !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_38]] : !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_41:.*]] = fir.eqv %[[VAL_39]], %[[VAL_40]] : !fir.logical<8>
|
|
! CHECK: hlfir.yield_element %[[VAL_41]] : !fir.logical<8>
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10x!fir.logical<8>>, index) -> !fir.logical<8>
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (!fir.logical<8>) -> (!fir.ref<!fir.logical<8>>, !fir.ref<!fir.logical<8>>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func_logical(%[[VAL_38]]#0) {{.*}} : (!fir.ref<!fir.logical<8>>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_compare() {
|
|
subroutine check_compare()
|
|
print *, elem_func_logical4(x.lt.y)
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<4>> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xf64>>, index) -> !fir.ref<f64>
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xf64>>, index) -> !fir.ref<f64>
|
|
! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_37]] : !fir.ref<f64>
|
|
! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_38]] : !fir.ref<f64>
|
|
! CHECK: %[[VAL_41:.*]] = arith.cmpf olt, %[[VAL_39]], %[[VAL_40]] {{.*}} : f64
|
|
! CHECK: %[[VAL_42:.*]] = fir.convert %[[VAL_41]] : (i1) -> !fir.logical<4>
|
|
! CHECK: hlfir.yield_element %[[VAL_42]] : !fir.logical<4>
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10x!fir.logical<4>>, index) -> !fir.logical<4>
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (!fir.logical<4>) -> (!fir.ref<!fir.logical<4>>, !fir.ref<!fir.logical<4>>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func_logical4(%[[VAL_38]]#0) {{.*}} : (!fir.ref<!fir.logical<4>>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_pow() {
|
|
subroutine check_pow()
|
|
print *, elem_func_real(x**y)
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf64> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xf64>>, index) -> !fir.ref<f64>
|
|
! CHECK: %[[VAL_38:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xf64>>, index) -> !fir.ref<f64>
|
|
! CHECK: %[[VAL_39:.*]] = fir.load %[[VAL_37]] : !fir.ref<f64>
|
|
! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_38]] : !fir.ref<f64>
|
|
! CHECK: %[[VAL_41:.*]] = math.powf %[[VAL_39]], %[[VAL_40]] {{.*}} : f64
|
|
! CHECK: hlfir.yield_element %[[VAL_41]] : f64
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10xf64>, index) -> f64
|
|
! CHECK: %[[VAL_38:.*]] = fir.call @_QPelem_func_real(%[[VAL_37]]) {{.*}} : (f64) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_38]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_cmplx_part() {
|
|
subroutine check_cmplx_part()
|
|
print *, elem_func_real(AIMAG(z1 + z2))
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xcomplex<f64>> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_39:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xcomplex<f64>>>, index) -> !fir.ref<complex<f64>>
|
|
! CHECK: %[[VAL_40:.*]] = fir.load %[[VAL_39]] : !fir.ref<complex<f64>>
|
|
! CHECK: %[[VAL_41:.*]] = fir.addc %[[VAL_40]], %{{.*}} {{.*}} : complex<f64>
|
|
! CHECK: hlfir.yield_element %[[VAL_41]] : complex<f64>
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_31:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf64> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_39:.*]] = hlfir.apply %[[VAL_30]], %[[ARG0]] : (!hlfir.expr<10xcomplex<f64>>, index) -> complex<f64>
|
|
! CHECK: %[[VAL_40:.*]] = fir.extract_value %[[VAL_39]], [1 : index] : (complex<f64>) -> f64
|
|
! CHECK: hlfir.yield_element %[[VAL_40]] : f64
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_32:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_39:.*]] = hlfir.apply %[[VAL_31]], %[[ARG0]] : (!hlfir.expr<10xf64>, index) -> f64
|
|
! CHECK: %[[VAL_40:.*]] = fir.call @_QPelem_func_real(%[[VAL_39]]) {{.*}} : (f64) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_40]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_parentheses() {
|
|
subroutine check_parentheses()
|
|
print *, elem_func_real((x))
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xf64> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10xf64>>, index) -> !fir.ref<f64>
|
|
! CHECK: %[[VAL_38:.*]] = fir.load %[[VAL_37]] : !fir.ref<f64>
|
|
! CHECK: %[[VAL_39:.*]] = hlfir.no_reassoc %[[VAL_38]] : f64
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : f64
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10xf64>, index) -> f64
|
|
! CHECK: %[[VAL_38:.*]] = fir.call @_QPelem_func_real(%[[VAL_37]]) {{.*}} : (f64) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_38]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: func.func @_QMtest_opsPcheck_parentheses_logical() {
|
|
subroutine check_parentheses_logical()
|
|
print *, elem_func_logical((a))
|
|
! CHECK: %[[VAL_29:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10x!fir.logical<8>> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.designate %{{.*}} (%[[ARG0]]) : (!fir.ref<!fir.array<10x!fir.logical<8>>>, index) -> !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_38:.*]] = fir.load %[[VAL_37]] : !fir.ref<!fir.logical<8>>
|
|
! CHECK: %[[VAL_39:.*]] = hlfir.no_reassoc %[[VAL_38]] : !fir.logical<8>
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : !fir.logical<8>
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_30:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<10xi32> {
|
|
! CHECK: ^bb0(%[[ARG0:.*]]: index):
|
|
! CHECK: %[[VAL_37:.*]] = hlfir.apply %[[VAL_29]], %[[ARG0]] : (!hlfir.expr<10x!fir.logical<8>>, index) -> !fir.logical<8>
|
|
! CHECK: %[[VAL_38:.*]]:3 = hlfir.associate %[[VAL_37]] {adapt.valuebyref} : (!fir.logical<8>) -> (!fir.ref<!fir.logical<8>>, !fir.ref<!fir.logical<8>>, i1)
|
|
! CHECK: %[[VAL_39:.*]] = fir.call @_QPelem_func_logical(%[[VAL_38]]#0) {{.*}} : (!fir.ref<!fir.logical<8>>) -> i32
|
|
! CHECK: hlfir.yield_element %[[VAL_39]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
|
|
subroutine check_parentheses_derived(a)
|
|
type t
|
|
integer :: i
|
|
end type
|
|
interface
|
|
integer elemental function elem_func_derived(x)
|
|
import :: t
|
|
type(t), intent(in) :: x
|
|
end function
|
|
end interface
|
|
type(t), pointer :: a(:)
|
|
print *, elem_func_derived((a))
|
|
! CHECK: %[[VAL_42:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<?x!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>> {
|
|
! CHECK: ^bb0(%[[ARG1:.*]]: index):
|
|
! CHECK: %[[VAL_53:.*]] = hlfir.designate %{{.*}} (%{{.*}}) : (!fir.box<!fir.ptr<!fir.array<?x!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>>>, index) -> !fir.ref<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>
|
|
! CHECK: %[[VAL_54:.*]] = hlfir.as_expr %[[VAL_53]] : (!fir.ref<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>) -> !hlfir.expr<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>
|
|
! CHECK: hlfir.yield_element %[[VAL_54]] : !hlfir.expr<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>
|
|
! CHECK: }
|
|
! CHECK: %[[VAL_43:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<?xi32> {
|
|
! CHECK: ^bb0(%[[ARG1:.*]]: index):
|
|
! CHECK: %[[VAL_50:.*]] = hlfir.apply %[[VAL_42]], %[[ARG1]] : (!hlfir.expr<?x!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>, index) -> !hlfir.expr<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>
|
|
! CHECK: %[[VAL_51:.*]]:3 = hlfir.associate %[[VAL_50]] {adapt.valuebyref} : (!hlfir.expr<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>) -> (!fir.ref<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>, !fir.ref<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>, i1)
|
|
! CHECK: %[[VAL_52:.*]] = fir.call @_QPelem_func_derived(%[[VAL_51]]#0) {{.*}} : (!fir.ref<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>) -> i32
|
|
! CHECK: hlfir.end_associate %[[VAL_51]]#1, %[[VAL_51]]#2 : !fir.ref<!fir.type<_QMtest_opsFcheck_parentheses_derivedTt{i:i32}>>, i1
|
|
! CHECK: hlfir.yield_element %[[VAL_52]] : i32
|
|
! CHECK: }
|
|
end subroutine
|
|
end module
|