[flang-commits] [flang] [flang][NFC] Converted five tests from old lowering to new lowering (part 47) (PR #193886)
Eugene Epshteyn via flang-commits
flang-commits at lists.llvm.org
Thu Apr 23 20:03:42 PDT 2026
https://github.com/eugeneepshteyn created https://github.com/llvm/llvm-project/pull/193886
Tests converted from test/Lower: namelist-common-block.f90, nested-where.f90, nullify.f90, OpenMP/Todo/omp-default-clause-inner-loop.f90, optional-value-caller.f90
>From 7db8f2313d98e79364682c22fab3dd45583d0f3a Mon Sep 17 00:00:00 2001
From: Eugene Epshteyn <eepshteyn at nvidia.com>
Date: Thu, 23 Apr 2026 22:33:13 -0400
Subject: [PATCH 1/2] [flang][NFC] Converted five tests from old lowering to
new lowering (part 47)
Tests converted from test/Lower: namelist-common-block.f90,
nested-where.f90, nullify.f90, OpenMP/Todo/omp-default-clause-inner-loop.f90,
optional-value-caller.f90
---
.../Todo/omp-default-clause-inner-loop.f90 | 16 +-
flang/test/Lower/namelist-common-block.f90 | 2 +-
flang/test/Lower/nested-where.f90 | 332 ++-----------
flang/test/Lower/nullify.f90 | 25 +-
flang/test/Lower/optional-value-caller.f90 | 460 +++++++-----------
5 files changed, 217 insertions(+), 618 deletions(-)
diff --git a/flang/test/Lower/OpenMP/Todo/omp-default-clause-inner-loop.f90 b/flang/test/Lower/OpenMP/Todo/omp-default-clause-inner-loop.f90
index 7447e24d236fa..d77862d55bff8 100644
--- a/flang/test/Lower/OpenMP/Todo/omp-default-clause-inner-loop.f90
+++ b/flang/test/Lower/OpenMP/Todo/omp-default-clause-inner-loop.f90
@@ -1,26 +1,24 @@
! This test checks the lowering of parallel do
-! RUN: %flang_fc1 -emit-fir -flang-deprecated-no-hlfir -fopenmp %s -o - \
-! RUN: | FileCheck %s
-
-! RUN: bbc -fopenmp -emit-fir -hlfir=false %s -o - \
+! RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - \
! RUN: | FileCheck %s
! The string "EXPECTED" denotes the expected FIR
-! CHECK: omp.parallel private(@{{.*}} %{{.*}} -> %[[PRIVATE_Y:.*]], @{{.*}} %{{.*}} -> %[[PRIVATE_Y:.*]] : !fir.ref<i32>, !fir.ref<i32>) {
+! CHECK: omp.parallel private(@{{.*}} %{{.*}} -> %[[PRIVATE_Y:.*]], @{{.*}} %{{.*}} -> %[[PRIVATE_Z:.*]] : !fir.ref<i32>, !fir.ref<i32>) {
! CHECK: %[[const_1:.*]] = arith.constant 1 : i32
! CHECK: %[[const_2:.*]] = arith.constant 10 : i32
! CHECK: %[[const_3:.*]] = arith.constant 1 : i32
! CHECK: omp.wsloop private(@{{.*}} %{{.*}} -> %[[TEMP:.*]] : !fir.ref<i32>) {
! CHECK-NEXT: omp.loop_nest (%[[ARG:.*]]) : i32 = (%[[const_1]]) to (%[[const_2]]) inclusive step (%[[const_3]]) {
-! CHECK: hlfir.assign %[[ARG]] to %[[TEMP]] : i32, !fir.ref<i32>
+! CHECK: %[[TEMP_DECL:.*]]:2 = hlfir.declare %[[TEMP]]
+! CHECK: hlfir.assign %[[ARG]] to %[[TEMP_DECL]]#0 : i32, !fir.ref<i32>
! EXPECTED: %[[temp_1:.*]] = fir.load %[[PRIVATE_Z]] : !fir.ref<i32>
! CHECK: %[[temp_1:.*]] = fir.load %{{.*}} : !fir.ref<i32>
-! CHECK: %[[temp_2:.*]] = fir.load %[[TEMP]] : !fir.ref<i32>
+! CHECK: %[[temp_2:.*]] = fir.load %[[TEMP_DECL]]#0 : !fir.ref<i32>
! CHECK: %[[result:.*]] = arith.addi %[[temp_1]], %[[temp_2]] : i32
-! EXPECTED: fir.store %[[result]] to %[[PRIVATE_Y]] : !fir.ref<i32>
-! CHECK: fir.store %[[result]] to %{{.*}} : !fir.ref<i32>
+! EXPECTED: hlfir.assign %[[result]] to %[[PRIVATE_Y]] : i32, !fir.ref<i32>
+! CHECK: hlfir.assign %[[result]] to %{{.*}} : i32, !fir.ref<i32>
! CHECK: omp.yield
! CHECK: }
! CHECK: }
diff --git a/flang/test/Lower/namelist-common-block.f90 b/flang/test/Lower/namelist-common-block.f90
index 54d4b9e552510..200aee609a56a 100644
--- a/flang/test/Lower/namelist-common-block.f90
+++ b/flang/test/Lower/namelist-common-block.f90
@@ -1,4 +1,4 @@
-! RUN: bbc -emit-fir -hlfir=false -o - %s | FileCheck %s
+! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck %s
! Test that allocatable or pointer item from namelist are retrieved correctly
! if they are part of a common block as well.
diff --git a/flang/test/Lower/nested-where.f90 b/flang/test/Lower/nested-where.f90
index 1e379667b7b03..1230cc44fc674 100644
--- a/flang/test/Lower/nested-where.f90
+++ b/flang/test/Lower/nested-where.f90
@@ -1,318 +1,42 @@
-! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s
+! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s
! CHECK-LABEL: func @_QQmain() attributes {fir.bindc_name = "NESTED_WHERE"} {
program nested_where
- ! CHECK: %[[VAL_0:.*]] = fir.alloca i32 {adapt.valuebyref, bindc_name = "i"}
- ! CHECK: %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref, bindc_name = "i"}
- ! CHECK: %[[VAL_2:.*]] = fir.alloca i32 {adapt.valuebyref, bindc_name = "i"}
- ! CHECK: %[[VAL_3:.*]] = fir.alloca tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_4:.*]] = fir.alloca tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_5:.*]] = fir.address_of(@_QFEa) : !fir.ref<!fir.array<3xi32>>
+ ! CHECK: %[[VAL_1:.*]] = fir.address_of(@_QFEa) : !fir.ref<!fir.array<3xi32>>
+ ! CHECK: %[[VAL_2:.*]] = arith.constant 3 : index
+ ! CHECK: %[[VAL_3:.*]] = fir.shape %[[VAL_2]] : (index) -> !fir.shape<1>
+ ! CHECK: %[[VAL_4:.*]]:2 = hlfir.declare %[[VAL_1]](%[[VAL_3]]) {uniq_name = "_QFEa"} : (!fir.ref<!fir.array<3xi32>>, !fir.shape<1>) -> (!fir.ref<!fir.array<3xi32>>, !fir.ref<!fir.array<3xi32>>)
+ ! CHECK: %[[VAL_5:.*]] = fir.address_of(@_QFEmask1) : !fir.ref<!fir.array<3x!fir.logical<4>>>
! CHECK: %[[VAL_6:.*]] = arith.constant 3 : index
- ! CHECK: %[[VAL_7:.*]] = fir.address_of(@_QFEmask1) : !fir.ref<!fir.array<3x!fir.logical<4>>>
- ! CHECK: %[[VAL_8:.*]] = arith.constant 3 : index
+ ! CHECK: %[[VAL_7:.*]] = fir.shape %[[VAL_6]] : (index) -> !fir.shape<1>
+ ! CHECK: %[[VAL_8:.*]]:2 = hlfir.declare %[[VAL_5]](%[[VAL_7]]) {uniq_name = "_QFEmask1"} : (!fir.ref<!fir.array<3x!fir.logical<4>>>, !fir.shape<1>) -> (!fir.ref<!fir.array<3x!fir.logical<4>>>, !fir.ref<!fir.array<3x!fir.logical<4>>>)
! CHECK: %[[VAL_9:.*]] = fir.address_of(@_QFEmask2) : !fir.ref<!fir.array<3x!fir.logical<4>>>
! CHECK: %[[VAL_10:.*]] = arith.constant 3 : index
- ! CHECK: %[[VAL_11:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_12:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_13:.*]] = fir.coordinate_of %[[VAL_4]], %[[VAL_11]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<i64>
- ! CHECK: fir.store %[[VAL_12]] to %[[VAL_13]] : !fir.ref<i64>
- ! CHECK: %[[VAL_14:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_15:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi8>>
- ! CHECK: %[[VAL_16:.*]] = fir.coordinate_of %[[VAL_4]], %[[VAL_14]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: fir.store %[[VAL_15]] to %[[VAL_16]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_17:.*]] = arith.constant 2 : i32
- ! CHECK: %[[VAL_18:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi64>>
- ! CHECK: %[[VAL_19:.*]] = fir.coordinate_of %[[VAL_4]], %[[VAL_17]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: fir.store %[[VAL_18]] to %[[VAL_19]] : !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_20:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_21:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_22:.*]] = fir.coordinate_of %[[VAL_3]], %[[VAL_20]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<i64>
- ! CHECK: fir.store %[[VAL_21]] to %[[VAL_22]] : !fir.ref<i64>
- ! CHECK: %[[VAL_23:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_24:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi8>>
- ! CHECK: %[[VAL_25:.*]] = fir.coordinate_of %[[VAL_3]], %[[VAL_23]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: fir.store %[[VAL_24]] to %[[VAL_25]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_26:.*]] = arith.constant 2 : i32
- ! CHECK: %[[VAL_27:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi64>>
- ! CHECK: %[[VAL_28:.*]] = fir.coordinate_of %[[VAL_3]], %[[VAL_26]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: fir.store %[[VAL_27]] to %[[VAL_28]] : !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_29:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_30:.*]] = fir.convert %[[VAL_29]] : (i32) -> index
- ! CHECK: %[[VAL_31:.*]] = arith.constant 3 : i32
- ! CHECK: %[[VAL_32:.*]] = fir.convert %[[VAL_31]] : (i32) -> index
- ! CHECK: %[[VAL_33:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_34:.*]] = fir.shape %[[VAL_6]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_35:.*]] = fir.array_load %[[VAL_5]](%[[VAL_34]]) : (!fir.ref<!fir.array<3xi32>>, !fir.shape<1>) -> !fir.array<3xi32>
- ! CHECK: %[[VAL_36:.*]] = fir.do_loop %[[VAL_37:.*]] = %[[VAL_30]] to %[[VAL_32]] step %[[VAL_33]] unordered iter_args(%[[VAL_38:.*]] = %[[VAL_35]]) -> (!fir.array<3xi32>) {
- ! CHECK: %[[VAL_39:.*]] = fir.convert %[[VAL_37]] : (index) -> i32
- ! CHECK: fir.store %[[VAL_39]] to %[[VAL_2]] : !fir.ref<i32>
- ! CHECK: %[[VAL_40:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_41:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_42:.*]] = fir.convert %[[VAL_30]] : (index) -> i64
- ! CHECK: %[[VAL_43:.*]] = fir.convert %[[VAL_32]] : (index) -> i64
- ! CHECK: %[[VAL_44:.*]] = fir.convert %[[VAL_33]] : (index) -> i64
- ! CHECK: %[[VAL_45:.*]] = arith.subi %[[VAL_43]], %[[VAL_42]] : i64
- ! CHECK: %[[VAL_46:.*]] = arith.addi %[[VAL_45]], %[[VAL_44]] : i64
- ! CHECK: %[[VAL_47:.*]] = arith.divsi %[[VAL_46]], %[[VAL_44]] : i64
- ! CHECK: %[[VAL_48:.*]] = arith.cmpi sgt, %[[VAL_47]], %[[VAL_41]] : i64
- ! CHECK: %[[VAL_49:.*]] = arith.select %[[VAL_48]], %[[VAL_47]], %[[VAL_41]] : i64
- ! CHECK: %[[VAL_50:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_51:.*]] = fir.coordinate_of %[[VAL_4]], %[[VAL_50]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_52:.*]] = fir.load %[[VAL_51]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_53:.*]] = fir.convert %[[VAL_52]] : (!fir.heap<!fir.array<?xi8>>) -> i64
- ! CHECK: %[[VAL_54:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_55:.*]] = arith.cmpi eq, %[[VAL_53]], %[[VAL_54]] : i64
- ! CHECK: fir.if %[[VAL_55]] {
- ! CHECK: %[[VAL_56:.*]] = arith.constant true
- ! CHECK: %[[VAL_57:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_58:.*]] = fir.allocmem !fir.array<1xi64>
- ! CHECK: %[[VAL_59:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_60:.*]] = fir.coordinate_of %[[VAL_58]], %[[VAL_59]] : (!fir.heap<!fir.array<1xi64>>, i32) -> !fir.ref<i64>
- ! CHECK: fir.store %[[VAL_49]] to %[[VAL_60]] : !fir.ref<i64>
- ! CHECK: %[[VAL_61:.*]] = fir.convert %[[VAL_4]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>) -> !fir.llvm_ptr<i8>
- ! CHECK: %[[VAL_62:.*]] = fir.convert %[[VAL_58]] : (!fir.heap<!fir.array<1xi64>>) -> !fir.ref<i64>
- ! CHECK: %[[VAL_63:.*]] = fir.call @_FortranARaggedArrayAllocate(%[[VAL_61]], %[[VAL_56]], %[[VAL_57]], %[[VAL_40]], %[[VAL_62]]) {{.*}}: (!fir.llvm_ptr<i8>, i1, i64, i64, !fir.ref<i64>) -> !fir.llvm_ptr<i8>
- ! CHECK: }
- ! CHECK: %[[VAL_64:.*]] = arith.subi %[[VAL_37]], %[[VAL_30]] : index
- ! CHECK: %[[VAL_65:.*]] = arith.divsi %[[VAL_64]], %[[VAL_33]] : index
- ! CHECK: %[[VAL_66:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_67:.*]] = arith.addi %[[VAL_65]], %[[VAL_66]] : index
- ! CHECK: %[[VAL_68:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_69:.*]] = fir.coordinate_of %[[VAL_4]], %[[VAL_68]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_70:.*]] = fir.load %[[VAL_69]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_71:.*]] = fir.convert %[[VAL_70]] : (!fir.heap<!fir.array<?xi8>>) -> !fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>
- ! CHECK: %[[VAL_72:.*]] = fir.shape %[[VAL_49]] : (i64) -> !fir.shape<1>
- ! CHECK: %[[VAL_73:.*]] = fir.array_coor %[[VAL_71]](%[[VAL_72]]) %[[VAL_67]] : (!fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>, !fir.shape<1>, index) -> !fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>
- ! CHECK: %[[VAL_74:.*]] = fir.shape %[[VAL_8]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_75:.*]] = fir.array_load %[[VAL_7]](%[[VAL_74]]) : (!fir.ref<!fir.array<3x!fir.logical<4>>>, !fir.shape<1>) -> !fir.array<3x!fir.logical<4>>
- ! CHECK: %[[VAL_76:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_77:.*]] = fir.coordinate_of %[[VAL_73]], %[[VAL_76]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_78:.*]] = fir.load %[[VAL_77]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_79:.*]] = fir.shape %[[VAL_8]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_80:.*]] = fir.array_load %[[VAL_78]](%[[VAL_79]]) : (!fir.heap<!fir.array<?xi8>>, !fir.shape<1>) -> !fir.array<?xi8>
- ! CHECK: %[[VAL_81:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_82:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_83:.*]] = fir.coordinate_of %[[VAL_73]], %[[VAL_82]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_84:.*]] = fir.load %[[VAL_83]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_85:.*]] = fir.convert %[[VAL_84]] : (!fir.heap<!fir.array<?xi8>>) -> i64
- ! CHECK: %[[VAL_86:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_87:.*]] = arith.cmpi eq, %[[VAL_85]], %[[VAL_86]] : i64
- ! CHECK: fir.if %[[VAL_87]] {
- ! CHECK: %[[VAL_88:.*]] = arith.constant false
- ! CHECK: %[[VAL_89:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_90:.*]] = fir.allocmem !fir.array<1xi64>
- ! CHECK: %[[VAL_91:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_92:.*]] = fir.coordinate_of %[[VAL_90]], %[[VAL_91]] : (!fir.heap<!fir.array<1xi64>>, i32) -> !fir.ref<i64>
- ! CHECK: %[[VAL_93:.*]] = fir.convert %[[VAL_8]] : (index) -> i64
- ! CHECK: fir.store %[[VAL_93]] to %[[VAL_92]] : !fir.ref<i64>
- ! CHECK: %[[VAL_94:.*]] = fir.convert %[[VAL_73]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>) -> !fir.llvm_ptr<i8>
- ! CHECK: %[[VAL_95:.*]] = fir.convert %[[VAL_90]] : (!fir.heap<!fir.array<1xi64>>) -> !fir.ref<i64>
- ! CHECK: %[[VAL_96:.*]] = fir.call @_FortranARaggedArrayAllocate(%[[VAL_94]], %[[VAL_88]], %[[VAL_89]], %[[VAL_81]], %[[VAL_95]]) {{.*}}: (!fir.llvm_ptr<i8>, i1, i64, i64, !fir.ref<i64>) -> !fir.llvm_ptr<i8>
- ! CHECK: }
- ! CHECK: %[[VAL_97:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_98:.*]] = arith.constant 0 : index
- ! CHECK: %[[VAL_99:.*]] = arith.subi %[[VAL_8]], %[[VAL_97]] : index
- ! CHECK: %[[VAL_100:.*]] = fir.do_loop %[[VAL_101:.*]] = %[[VAL_98]] to %[[VAL_99]] step %[[VAL_97]] unordered iter_args(%[[VAL_102:.*]] = %[[VAL_80]]) -> (!fir.array<?xi8>) {
- ! CHECK: %[[VAL_103:.*]] = fir.array_fetch %[[VAL_75]], %[[VAL_101]] : (!fir.array<3x!fir.logical<4>>, index) -> !fir.logical<4>
- ! CHECK: %[[VAL_104:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_105:.*]] = fir.coordinate_of %[[VAL_73]], %[[VAL_104]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_106:.*]] = fir.load %[[VAL_105]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_107:.*]] = fir.shape %[[VAL_8]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_108:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_109:.*]] = arith.addi %[[VAL_101]], %[[VAL_108]] : index
- ! CHECK: %[[VAL_110:.*]] = fir.array_coor %[[VAL_106]](%[[VAL_107]]) %[[VAL_109]] : (!fir.heap<!fir.array<?xi8>>, !fir.shape<1>, index) -> !fir.ref<i8>
- ! CHECK: %[[VAL_111:.*]] = fir.convert %[[VAL_103]] : (!fir.logical<4>) -> i8
- ! CHECK: fir.store %[[VAL_111]] to %[[VAL_110]] : !fir.ref<i8>
- ! CHECK: fir.result %[[VAL_102]] : !fir.array<?xi8>
- ! CHECK: }
- ! CHECK: fir.result %[[VAL_38]] : !fir.array<3xi32>
- ! CHECK: }
- ! CHECK: %[[VAL_112:.*]] = fir.do_loop %[[VAL_113:.*]] = %[[VAL_30]] to %[[VAL_32]] step %[[VAL_33]] unordered iter_args(%[[VAL_114:.*]] = %[[VAL_35]]) -> (!fir.array<3xi32>) {
- ! CHECK: %[[VAL_115:.*]] = fir.convert %[[VAL_113]] : (index) -> i32
- ! CHECK: fir.store %[[VAL_115]] to %[[VAL_1]] : !fir.ref<i32>
- ! CHECK: %[[VAL_116:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_117:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_118:.*]] = fir.convert %[[VAL_30]] : (index) -> i64
- ! CHECK: %[[VAL_119:.*]] = fir.convert %[[VAL_32]] : (index) -> i64
- ! CHECK: %[[VAL_120:.*]] = fir.convert %[[VAL_33]] : (index) -> i64
- ! CHECK: %[[VAL_121:.*]] = arith.subi %[[VAL_119]], %[[VAL_118]] : i64
- ! CHECK: %[[VAL_122:.*]] = arith.addi %[[VAL_121]], %[[VAL_120]] : i64
- ! CHECK: %[[VAL_123:.*]] = arith.divsi %[[VAL_122]], %[[VAL_120]] : i64
- ! CHECK: %[[VAL_124:.*]] = arith.cmpi sgt, %[[VAL_123]], %[[VAL_117]] : i64
- ! CHECK: %[[VAL_125:.*]] = arith.select %[[VAL_124]], %[[VAL_123]], %[[VAL_117]] : i64
- ! CHECK: %[[VAL_126:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_127:.*]] = fir.coordinate_of %[[VAL_3]], %[[VAL_126]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_128:.*]] = fir.load %[[VAL_127]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_129:.*]] = fir.convert %[[VAL_128]] : (!fir.heap<!fir.array<?xi8>>) -> i64
- ! CHECK: %[[VAL_130:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_131:.*]] = arith.cmpi eq, %[[VAL_129]], %[[VAL_130]] : i64
- ! CHECK: fir.if %[[VAL_131]] {
- ! CHECK: %[[VAL_132:.*]] = arith.constant true
- ! CHECK: %[[VAL_133:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_134:.*]] = fir.allocmem !fir.array<1xi64>
- ! CHECK: %[[VAL_135:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_136:.*]] = fir.coordinate_of %[[VAL_134]], %[[VAL_135]] : (!fir.heap<!fir.array<1xi64>>, i32) -> !fir.ref<i64>
- ! CHECK: fir.store %[[VAL_125]] to %[[VAL_136]] : !fir.ref<i64>
- ! CHECK: %[[VAL_137:.*]] = fir.convert %[[VAL_3]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>) -> !fir.llvm_ptr<i8>
- ! CHECK: %[[VAL_138:.*]] = fir.convert %[[VAL_134]] : (!fir.heap<!fir.array<1xi64>>) -> !fir.ref<i64>
- ! CHECK: %[[VAL_139:.*]] = fir.call @_FortranARaggedArrayAllocate(%[[VAL_137]], %[[VAL_132]], %[[VAL_133]], %[[VAL_116]], %[[VAL_138]]) {{.*}}: (!fir.llvm_ptr<i8>, i1, i64, i64, !fir.ref<i64>) -> !fir.llvm_ptr<i8>
- ! CHECK: }
- ! CHECK: %[[VAL_140:.*]] = arith.subi %[[VAL_113]], %[[VAL_30]] : index
- ! CHECK: %[[VAL_141:.*]] = arith.divsi %[[VAL_140]], %[[VAL_33]] : index
- ! CHECK: %[[VAL_142:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_143:.*]] = arith.addi %[[VAL_141]], %[[VAL_142]] : index
- ! CHECK: %[[VAL_144:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_145:.*]] = fir.coordinate_of %[[VAL_3]], %[[VAL_144]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_146:.*]] = fir.load %[[VAL_145]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_147:.*]] = fir.convert %[[VAL_146]] : (!fir.heap<!fir.array<?xi8>>) -> !fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>
- ! CHECK: %[[VAL_148:.*]] = fir.shape %[[VAL_125]] : (i64) -> !fir.shape<1>
- ! CHECK: %[[VAL_149:.*]] = fir.array_coor %[[VAL_147]](%[[VAL_148]]) %[[VAL_143]] : (!fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>, !fir.shape<1>, index) -> !fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>
- ! CHECK: %[[VAL_150:.*]] = fir.shape %[[VAL_10]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_151:.*]] = fir.array_load %[[VAL_9]](%[[VAL_150]]) : (!fir.ref<!fir.array<3x!fir.logical<4>>>, !fir.shape<1>) -> !fir.array<3x!fir.logical<4>>
- ! CHECK: %[[VAL_152:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_153:.*]] = fir.coordinate_of %[[VAL_149]], %[[VAL_152]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_154:.*]] = fir.load %[[VAL_153]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_155:.*]] = fir.shape %[[VAL_10]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_156:.*]] = fir.array_load %[[VAL_154]](%[[VAL_155]]) : (!fir.heap<!fir.array<?xi8>>, !fir.shape<1>) -> !fir.array<?xi8>
- ! CHECK: %[[VAL_157:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_158:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_159:.*]] = fir.coordinate_of %[[VAL_149]], %[[VAL_158]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_160:.*]] = fir.load %[[VAL_159]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_161:.*]] = fir.convert %[[VAL_160]] : (!fir.heap<!fir.array<?xi8>>) -> i64
- ! CHECK: %[[VAL_162:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_163:.*]] = arith.cmpi eq, %[[VAL_161]], %[[VAL_162]] : i64
- ! CHECK: fir.if %[[VAL_163]] {
- ! CHECK: %[[VAL_164:.*]] = arith.constant false
- ! CHECK: %[[VAL_165:.*]] = arith.constant 1 : i64
- ! CHECK: %[[VAL_166:.*]] = fir.allocmem !fir.array<1xi64>
- ! CHECK: %[[VAL_167:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_168:.*]] = fir.coordinate_of %[[VAL_166]], %[[VAL_167]] : (!fir.heap<!fir.array<1xi64>>, i32) -> !fir.ref<i64>
- ! CHECK: %[[VAL_169:.*]] = fir.convert %[[VAL_10]] : (index) -> i64
- ! CHECK: fir.store %[[VAL_169]] to %[[VAL_168]] : !fir.ref<i64>
- ! CHECK: %[[VAL_170:.*]] = fir.convert %[[VAL_149]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>) -> !fir.llvm_ptr<i8>
- ! CHECK: %[[VAL_171:.*]] = fir.convert %[[VAL_166]] : (!fir.heap<!fir.array<1xi64>>) -> !fir.ref<i64>
- ! CHECK: %[[VAL_172:.*]] = fir.call @_FortranARaggedArrayAllocate(%[[VAL_170]], %[[VAL_164]], %[[VAL_165]], %[[VAL_157]], %[[VAL_171]]) {{.*}}: (!fir.llvm_ptr<i8>, i1, i64, i64, !fir.ref<i64>) -> !fir.llvm_ptr<i8>
- ! CHECK: }
- ! CHECK: %[[VAL_173:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_174:.*]] = arith.constant 0 : index
- ! CHECK: %[[VAL_175:.*]] = arith.subi %[[VAL_10]], %[[VAL_173]] : index
- ! CHECK: %[[VAL_176:.*]] = fir.do_loop %[[VAL_177:.*]] = %[[VAL_174]] to %[[VAL_175]] step %[[VAL_173]] unordered iter_args(%[[VAL_178:.*]] = %[[VAL_156]]) -> (!fir.array<?xi8>) {
- ! CHECK: %[[VAL_179:.*]] = fir.array_fetch %[[VAL_151]], %[[VAL_177]] : (!fir.array<3x!fir.logical<4>>, index) -> !fir.logical<4>
- ! CHECK: %[[VAL_180:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_181:.*]] = fir.coordinate_of %[[VAL_149]], %[[VAL_180]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_182:.*]] = fir.load %[[VAL_181]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_183:.*]] = fir.shape %[[VAL_10]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_184:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_185:.*]] = arith.addi %[[VAL_177]], %[[VAL_184]] : index
- ! CHECK: %[[VAL_186:.*]] = fir.array_coor %[[VAL_182]](%[[VAL_183]]) %[[VAL_185]] : (!fir.heap<!fir.array<?xi8>>, !fir.shape<1>, index) -> !fir.ref<i8>
- ! CHECK: %[[VAL_187:.*]] = fir.convert %[[VAL_179]] : (!fir.logical<4>) -> i8
- ! CHECK: fir.store %[[VAL_187]] to %[[VAL_186]] : !fir.ref<i8>
- ! CHECK: fir.result %[[VAL_178]] : !fir.array<?xi8>
- ! CHECK: }
- ! CHECK: fir.result %[[VAL_114]] : !fir.array<3xi32>
- ! CHECK: }
- ! CHECK: %[[VAL_188:.*]] = fir.do_loop %[[VAL_189:.*]] = %[[VAL_30]] to %[[VAL_32]] step %[[VAL_33]] unordered iter_args(%[[VAL_190:.*]] = %[[VAL_35]]) -> (!fir.array<3xi32>) {
- ! CHECK: %[[VAL_191:.*]] = fir.convert %[[VAL_189]] : (index) -> i32
- ! CHECK: fir.store %[[VAL_191]] to %[[VAL_0]] : !fir.ref<i32>
- ! CHECK: %[[VAL_192:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_193:.*]] = fir.convert %[[VAL_30]] : (index) -> i64
- ! CHECK: %[[VAL_194:.*]] = fir.convert %[[VAL_32]] : (index) -> i64
- ! CHECK: %[[VAL_195:.*]] = fir.convert %[[VAL_33]] : (index) -> i64
- ! CHECK: %[[VAL_196:.*]] = arith.subi %[[VAL_194]], %[[VAL_193]] : i64
- ! CHECK: %[[VAL_197:.*]] = arith.addi %[[VAL_196]], %[[VAL_195]] : i64
- ! CHECK: %[[VAL_198:.*]] = arith.divsi %[[VAL_197]], %[[VAL_195]] : i64
- ! CHECK: %[[VAL_199:.*]] = arith.cmpi sgt, %[[VAL_198]], %[[VAL_192]] : i64
- ! CHECK: %[[VAL_200:.*]] = arith.select %[[VAL_199]], %[[VAL_198]], %[[VAL_192]] : i64
- ! CHECK: %[[VAL_201:.*]] = arith.subi %[[VAL_189]], %[[VAL_30]] : index
- ! CHECK: %[[VAL_202:.*]] = arith.divsi %[[VAL_201]], %[[VAL_33]] : index
- ! CHECK: %[[VAL_203:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_204:.*]] = arith.addi %[[VAL_202]], %[[VAL_203]] : index
- ! CHECK: %[[VAL_205:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_206:.*]] = fir.coordinate_of %[[VAL_4]], %[[VAL_205]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_207:.*]] = fir.load %[[VAL_206]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_208:.*]] = fir.convert %[[VAL_207]] : (!fir.heap<!fir.array<?xi8>>) -> !fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>
- ! CHECK: %[[VAL_209:.*]] = fir.shape %[[VAL_200]] : (i64) -> !fir.shape<1>
- ! CHECK: %[[VAL_210:.*]] = fir.array_coor %[[VAL_208]](%[[VAL_209]]) %[[VAL_204]] : (!fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>, !fir.shape<1>, index) -> !fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>
- ! CHECK: %[[VAL_211:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_212:.*]] = fir.coordinate_of %[[VAL_210]], %[[VAL_211]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_213:.*]] = fir.load %[[VAL_212]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_214:.*]] = fir.convert %[[VAL_213]] : (!fir.heap<!fir.array<?xi8>>) -> !fir.ref<!fir.array<?xi8>>
- ! CHECK: %[[VAL_215:.*]] = arith.constant 2 : i32
- ! CHECK: %[[VAL_216:.*]] = fir.coordinate_of %[[VAL_210]], %[[VAL_215]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_217:.*]] = fir.load %[[VAL_216]] : !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_218:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_219:.*]] = fir.coordinate_of %[[VAL_217]], %[[VAL_218]] : (!fir.heap<!fir.array<?xi64>>, i32) -> !fir.ref<i64>
- ! CHECK: %[[VAL_220:.*]] = fir.load %[[VAL_219]] : !fir.ref<i64>
- ! CHECK: %[[VAL_221:.*]] = fir.convert %[[VAL_220]] : (i64) -> index
- ! CHECK: %[[VAL_222:.*]] = fir.shape %[[VAL_221]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_223:.*]] = arith.constant 0 : i64
- ! CHECK: %[[VAL_224:.*]] = fir.convert %[[VAL_30]] : (index) -> i64
- ! CHECK: %[[VAL_225:.*]] = fir.convert %[[VAL_32]] : (index) -> i64
- ! CHECK: %[[VAL_226:.*]] = fir.convert %[[VAL_33]] : (index) -> i64
- ! CHECK: %[[VAL_227:.*]] = arith.subi %[[VAL_225]], %[[VAL_224]] : i64
- ! CHECK: %[[VAL_228:.*]] = arith.addi %[[VAL_227]], %[[VAL_226]] : i64
- ! CHECK: %[[VAL_229:.*]] = arith.divsi %[[VAL_228]], %[[VAL_226]] : i64
- ! CHECK: %[[VAL_230:.*]] = arith.cmpi sgt, %[[VAL_229]], %[[VAL_223]] : i64
- ! CHECK: %[[VAL_231:.*]] = arith.select %[[VAL_230]], %[[VAL_229]], %[[VAL_223]] : i64
- ! CHECK: %[[VAL_232:.*]] = arith.subi %[[VAL_189]], %[[VAL_30]] : index
- ! CHECK: %[[VAL_233:.*]] = arith.divsi %[[VAL_232]], %[[VAL_33]] : index
- ! CHECK: %[[VAL_234:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_235:.*]] = arith.addi %[[VAL_233]], %[[VAL_234]] : index
- ! CHECK: %[[VAL_236:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_237:.*]] = fir.coordinate_of %[[VAL_3]], %[[VAL_236]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_238:.*]] = fir.load %[[VAL_237]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_239:.*]] = fir.convert %[[VAL_238]] : (!fir.heap<!fir.array<?xi8>>) -> !fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>
- ! CHECK: %[[VAL_240:.*]] = fir.shape %[[VAL_231]] : (i64) -> !fir.shape<1>
- ! CHECK: %[[VAL_241:.*]] = fir.array_coor %[[VAL_239]](%[[VAL_240]]) %[[VAL_235]] : (!fir.ref<!fir.array<?xtuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>>, !fir.shape<1>, index) -> !fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>
- ! CHECK: %[[VAL_242:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_243:.*]] = fir.coordinate_of %[[VAL_241]], %[[VAL_242]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_244:.*]] = fir.load %[[VAL_243]] : !fir.ref<!fir.heap<!fir.array<?xi8>>>
- ! CHECK: %[[VAL_245:.*]] = fir.convert %[[VAL_244]] : (!fir.heap<!fir.array<?xi8>>) -> !fir.ref<!fir.array<?xi8>>
- ! CHECK: %[[VAL_246:.*]] = arith.constant 2 : i32
- ! CHECK: %[[VAL_247:.*]] = fir.coordinate_of %[[VAL_241]], %[[VAL_246]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>, i32) -> !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_248:.*]] = fir.load %[[VAL_247]] : !fir.ref<!fir.heap<!fir.array<?xi64>>>
- ! CHECK: %[[VAL_249:.*]] = arith.constant 0 : i32
- ! CHECK: %[[VAL_250:.*]] = fir.coordinate_of %[[VAL_248]], %[[VAL_249]] : (!fir.heap<!fir.array<?xi64>>, i32) -> !fir.ref<i64>
- ! CHECK: %[[VAL_251:.*]] = fir.load %[[VAL_250]] : !fir.ref<i64>
- ! CHECK: %[[VAL_252:.*]] = fir.convert %[[VAL_251]] : (i64) -> index
- ! CHECK: %[[VAL_253:.*]] = fir.shape %[[VAL_252]] : (index) -> !fir.shape<1>
- ! CHECK: %[[VAL_254:.*]] = arith.constant 1 : i32
- ! CHECK: %[[VAL_255:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_256:.*]] = arith.constant 0 : index
- ! CHECK: %[[VAL_257:.*]] = arith.subi %[[VAL_221]], %[[VAL_255]] : index
- ! CHECK: %[[VAL_258:.*]] = fir.do_loop %[[VAL_259:.*]] = %[[VAL_256]] to %[[VAL_257]] step %[[VAL_255]] unordered iter_args(%[[VAL_260:.*]] = %[[VAL_190]]) -> (!fir.array<3xi32>) {
- ! CHECK: %[[VAL_261:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_262:.*]] = arith.addi %[[VAL_259]], %[[VAL_261]] : index
- ! CHECK: %[[VAL_263:.*]] = fir.array_coor %[[VAL_214]](%[[VAL_222]]) %[[VAL_262]] : (!fir.ref<!fir.array<?xi8>>, !fir.shape<1>, index) -> !fir.ref<i8>
- ! CHECK: %[[VAL_264:.*]] = fir.load %[[VAL_263]] : !fir.ref<i8>
- ! CHECK: %[[VAL_265:.*]] = fir.convert %[[VAL_264]] : (i8) -> i1
- ! CHECK: %[[VAL_266:.*]] = fir.if %[[VAL_265]] -> (!fir.array<3xi32>) {
- ! CHECK: %[[VAL_267:.*]] = arith.constant 1 : index
- ! CHECK: %[[VAL_268:.*]] = arith.addi %[[VAL_259]], %[[VAL_267]] : index
- ! CHECK: %[[VAL_269:.*]] = fir.array_coor %[[VAL_245]](%[[VAL_253]]) %[[VAL_268]] : (!fir.ref<!fir.array<?xi8>>, !fir.shape<1>, index) -> !fir.ref<i8>
- ! CHECK: %[[VAL_270:.*]] = fir.load %[[VAL_269]] : !fir.ref<i8>
- ! CHECK: %[[VAL_271:.*]] = fir.convert %[[VAL_270]] : (i8) -> i1
- ! CHECK: %[[VAL_272:.*]] = fir.if %[[VAL_271]] -> (!fir.array<3xi32>) {
- ! CHECK: %[[VAL_273:.*]] = fir.array_update %[[VAL_260]], %[[VAL_254]], %[[VAL_259]] : (!fir.array<3xi32>, i32, index) -> !fir.array<3xi32>
- ! CHECK: fir.result %[[VAL_273]] : !fir.array<3xi32>
- ! CHECK: } else {
- ! CHECK: fir.result %[[VAL_260]] : !fir.array<3xi32>
+ ! CHECK: %[[VAL_11:.*]] = fir.shape %[[VAL_10]] : (index) -> !fir.shape<1>
+ ! CHECK: %[[VAL_12:.*]]:2 = hlfir.declare %[[VAL_9]](%[[VAL_11]]) {uniq_name = "_QFEmask2"} : (!fir.ref<!fir.array<3x!fir.logical<4>>>, !fir.shape<1>) -> (!fir.ref<!fir.array<3x!fir.logical<4>>>, !fir.ref<!fir.array<3x!fir.logical<4>>>)
+ ! CHECK: %[[VAL_13:.*]] = arith.constant 1 : i32
+ ! CHECK: %[[VAL_14:.*]] = arith.constant 3 : i32
+ ! CHECK: hlfir.forall lb {
+ ! CHECK: hlfir.yield %[[VAL_13]] : i32
+ ! CHECK: } ub {
+ ! CHECK: hlfir.yield %[[VAL_14]] : i32
+ ! CHECK: } (%[[VAL_15:.*]]: i32) {
+ ! CHECK: hlfir.where {
+ ! CHECK: hlfir.yield %[[VAL_8]]#0 : !fir.ref<!fir.array<3x!fir.logical<4>>>
+ ! CHECK: } do {
+ ! CHECK: hlfir.where {
+ ! CHECK: hlfir.yield %[[VAL_12]]#0 : !fir.ref<!fir.array<3x!fir.logical<4>>>
+ ! CHECK: } do {
+ ! CHECK: hlfir.region_assign {
+ ! CHECK: %[[VAL_16:.*]] = arith.constant 1 : i32
+ ! CHECK: hlfir.yield %[[VAL_16]] : i32
+ ! CHECK: } to {
+ ! CHECK: hlfir.yield %[[VAL_4]]#0 : !fir.ref<!fir.array<3xi32>>
! CHECK: }
- ! CHECK: fir.result %[[VAL_274:.*]] : !fir.array<3xi32>
- ! CHECK: } else {
- ! CHECK: fir.result %[[VAL_260]] : !fir.array<3xi32>
! CHECK: }
- ! CHECK: fir.result %[[VAL_275:.*]] : !fir.array<3xi32>
! CHECK: }
- ! CHECK: fir.result %[[VAL_276:.*]] : !fir.array<3xi32>
! CHECK: }
- ! CHECK: fir.array_merge_store %[[VAL_35]], %[[VAL_277:.*]] to %[[VAL_5]] : !fir.array<3xi32>, !fir.array<3xi32>, !fir.ref<!fir.array<3xi32>>
- ! CHECK: %[[VAL_278:.*]] = fir.convert %[[VAL_3]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>) -> !fir.llvm_ptr<i8>
- ! CHECK: fir.call @_FortranARaggedArrayDeallocate(%[[VAL_278]]) {{.*}}: (!fir.llvm_ptr<i8>) -> ()
- ! CHECK: %[[VAL_280:.*]] = fir.convert %[[VAL_4]] : (!fir.ref<tuple<i64, !fir.heap<!fir.array<?xi8>>, !fir.heap<!fir.array<?xi64>>>>) -> !fir.llvm_ptr<i8>
- ! CHECK: fir.call @_FortranARaggedArrayDeallocate(%[[VAL_280]]) {{.*}}: (!fir.llvm_ptr<i8>) -> ()
integer :: a(3) = 0
logical :: mask1(3) = (/ .true.,.false.,.true. /)
diff --git a/flang/test/Lower/nullify.f90 b/flang/test/Lower/nullify.f90
index 9c9ee459e22d2..14be640063825 100644
--- a/flang/test/Lower/nullify.f90
+++ b/flang/test/Lower/nullify.f90
@@ -1,5 +1,5 @@
! Test lowering of nullify-statement
-! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s
+! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s
! -----------------------------------------------------------------------------
@@ -8,44 +8,49 @@
! CHECK-LABEL: func @_QPtest_scalar(
-! CHECK-SAME: %[[p:.*]]: !fir.ref<!fir.box<!fir.ptr<f32>>>{{.*}})
+! CHECK-SAME: %[[arg0:.*]]: !fir.ref<!fir.box<!fir.ptr<f32>>>{{.*}})
subroutine test_scalar(p)
real, pointer :: p
+ ! CHECK: %[[p:.*]]:2 = hlfir.declare %[[arg0]]
! CHECK: %[[null:.*]] = fir.zero_bits !fir.ptr<f32>
! CHECK: %[[box:.*]] = fir.embox %[[null]] : (!fir.ptr<f32>) -> !fir.box<!fir.ptr<f32>>
- ! CHECK: fir.store %[[box]] to %[[p]] : !fir.ref<!fir.box<!fir.ptr<f32>>>
+ ! CHECK: fir.store %[[box]] to %[[p]]#0 : !fir.ref<!fir.box<!fir.ptr<f32>>>
nullify(p)
end subroutine
! CHECK-LABEL: func @_QPtest_scalar_char(
-! CHECK-SAME: %[[p:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>{{.*}})
+! CHECK-SAME: %[[arg0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>{{.*}})
subroutine test_scalar_char(p)
character(:), pointer :: p
+ ! CHECK: %[[p:.*]]:2 = hlfir.declare %[[arg0]]
! CHECK: %[[null:.*]] = fir.zero_bits !fir.ptr<!fir.char<1,?>>
! CHECK: %[[box:.*]] = fir.embox %[[null]] typeparams %c0{{.*}} : (!fir.ptr<!fir.char<1,?>>, index) -> !fir.box<!fir.ptr<!fir.char<1,?>>>
- ! CHECK: fir.store %[[box]] to %[[p]] : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
+ ! CHECK: fir.store %[[box]] to %[[p]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
nullify(p)
end subroutine
! CHECK-LABEL: func @_QPtest_array(
-! CHECK-SAME: %[[p:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>{{.*}})
+! CHECK-SAME: %[[arg0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>{{.*}})
subroutine test_array(p)
real, pointer :: p(:)
+ ! CHECK: %[[p:.*]]:2 = hlfir.declare %[[arg0]]
! CHECK: %[[null:.*]] = fir.zero_bits !fir.ptr<!fir.array<?xf32>>
! CHECK: %[[shape:.*]] = fir.shape %c0{{.*}}
! CHECK: %[[box:.*]] = fir.embox %[[null]](%[[shape]]) : (!fir.ptr<!fir.array<?xf32>>, !fir.shape<1>) -> !fir.box<!fir.ptr<!fir.array<?xf32>>>
- ! CHECK: fir.store %[[box]] to %[[p]] : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>
+ ! CHECK: fir.store %[[box]] to %[[p]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>
nullify(p)
end subroutine
! CHECK-LABEL: func @_QPtest_list(
-! CHECK-SAME: %[[p1:.*]]: !fir.ref<!fir.box<!fir.ptr<f32>>>{{.*}}, %[[p2:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>{{.*}})
+! CHECK-SAME: %[[arg0:.*]]: !fir.ref<!fir.box<!fir.ptr<f32>>>{{.*}}, %[[arg1:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>{{.*}})
subroutine test_list(p1, p2)
real, pointer :: p1, p2(:)
+ ! CHECK: %[[p1:.*]]:2 = hlfir.declare %[[arg0]]
+ ! CHECK: %[[p2:.*]]:2 = hlfir.declare %[[arg1]]
! CHECK: fir.zero_bits !fir.ptr<f32>
- ! CHECK: fir.store %{{.*}} to %[[p1]] : !fir.ref<!fir.box<!fir.ptr<f32>>>
+ ! CHECK: fir.store %{{.*}} to %[[p1]]#0 : !fir.ref<!fir.box<!fir.ptr<f32>>>
! CHECK: fir.zero_bits !fir.ptr<!fir.array<?xf32>>
- ! CHECK: fir.store %{{.*}} to %[[p2]] : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>
+ ! CHECK: fir.store %{{.*}} to %[[p2]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xf32>>>>
nullify(p1, p2)
end subroutine
diff --git a/flang/test/Lower/optional-value-caller.f90 b/flang/test/Lower/optional-value-caller.f90
index 8c3a90ba0e4ff..e0c1479432885 100644
--- a/flang/test/Lower/optional-value-caller.f90
+++ b/flang/test/Lower/optional-value-caller.f90
@@ -1,5 +1,5 @@
! Test lowering of OPTIONAL VALUE dummy argument on caller side.
-! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s
+! RUN: %flang_fc1 -emit-hlfir %s -o - | FileCheck %s
! A copy must be made if the actual is a variable (and no copy-out), but care
! has to be take if the actual argument may be absent at runtime: the copy
@@ -34,432 +34,304 @@ function returns_ptr()
! CHECK-LABEL: func @_QMtestPtest_scalar_not_a_var() {
subroutine test_scalar_not_a_var()
call scalar(42)
-! CHECK: %[[VAL_0:.*]] = fir.alloca i32 {adapt.valuebyref}
-! CHECK: %[[VAL_1:.*]] = arith.constant 42 : i32
-! CHECK: fir.store %[[VAL_1]] to %[[VAL_0]] : !fir.ref<i32>
-! CHECK: fir.call @_QPscalar(%[[VAL_0]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: %[[VAL_0:.*]] = arith.constant 42 : i32
+! CHECK: %[[VAL_1:.*]]:3 = hlfir.associate %[[VAL_0]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.call @_QPscalar(%[[VAL_1]]#0) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_1]]#1, %[[VAL_1]]#2 : !fir.ref<i32>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
subroutine test_scalar(i)
integer, optional :: i
call scalar(i)
-! CHECK: %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
-! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<i32>) -> i1
-! CHECK: %[[VAL_3:.*]] = fir.if %[[VAL_2]] -> (!fir.ref<i32>) {
-! CHECK: %[[VAL_4:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
-! CHECK: fir.store %[[VAL_4]] to %[[VAL_1]] : !fir.ref<i32>
-! CHECK: fir.result %[[VAL_1]] : !fir.ref<i32>
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_0]]#0 : (!fir.ref<i32>) -> i1
+! CHECK: %[[VAL_3:.*]]:3 = fir.if %[[VAL_2]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
+! CHECK: %[[VAL_4:.*]] = hlfir.as_expr %[[VAL_0]]#0 : (!fir.ref<i32>) -> !hlfir.expr<i32>
+! CHECK: %[[VAL_5:.*]]:3 = hlfir.associate %[[VAL_4]] {adapt.valuebyref} : (!hlfir.expr<i32>) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.result %[[VAL_5]]#0, %[[VAL_5]]#1, %[[VAL_5]]#2 : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: } else {
-! CHECK: %[[VAL_5:.*]] = fir.absent !fir.ref<i32>
-! CHECK: fir.result %[[VAL_5]] : !fir.ref<i32>
+! CHECK: %[[VAL_6:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[VAL_7:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[VAL_6]], %[[VAL_7]], %[[FALSE]] : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: }
-! CHECK: fir.call @_QPscalar(%[[VAL_6:.*]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: fir.call @_QPscalar(%[[VAL_3]]#0) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_3]]#1, %[[VAL_3]]#2 : !fir.ref<i32>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar2(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
subroutine test_scalar2(i)
integer, optional, value :: i
call scalar(i)
-! CHECK: %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
-! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<i32>) -> i1
-! CHECK: %[[VAL_3:.*]] = fir.if %[[VAL_2]] -> (!fir.ref<i32>) {
-! CHECK: %[[VAL_4:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
-! CHECK: fir.store %[[VAL_4]] to %[[VAL_1]] : !fir.ref<i32>
-! CHECK: fir.result %[[VAL_1]] : !fir.ref<i32>
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_0]]#0 : (!fir.ref<i32>) -> i1
+! CHECK: %[[VAL_3:.*]]:3 = fir.if %[[VAL_2]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
+! CHECK: %[[VAL_4:.*]] = hlfir.as_expr %[[VAL_0]]#0 : (!fir.ref<i32>) -> !hlfir.expr<i32>
+! CHECK: %[[VAL_5:.*]]:3 = hlfir.associate %[[VAL_4]] {adapt.valuebyref} : (!hlfir.expr<i32>) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.result %[[VAL_5]]#0, %[[VAL_5]]#1, %[[VAL_5]]#2 : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: } else {
-! CHECK: %[[VAL_5:.*]] = fir.absent !fir.ref<i32>
-! CHECK: fir.result %[[VAL_5]] : !fir.ref<i32>
+! CHECK: %[[VAL_6:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[VAL_7:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[VAL_6]], %[[VAL_7]], %[[FALSE]] : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: }
-! CHECK: fir.call @_QPscalar(%[[VAL_6:.*]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: fir.call @_QPscalar(%[[VAL_3]]#0) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_3]]#1, %[[VAL_3]]#2 : !fir.ref<i32>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar3(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<i32> {fir.bindc_name = "i", fir.optional}) {
subroutine test_scalar3(i)
integer, optional :: i
! i must be present when it appears in "()"
call scalar((i))
-! CHECK: %[[VAL_1:.*]] = fir.alloca i32
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
-! CHECK: %[[VAL_3:.*]] = fir.no_reassoc %[[VAL_2]] : i32
-! CHECK: fir.store %[[VAL_3]] to %[[VAL_1]] : !fir.ref<i32>
-! CHECK: fir.call @_QPscalar(%[[VAL_1]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<i32>
+! CHECK: %[[VAL_3:.*]] = hlfir.no_reassoc %[[VAL_2]] : i32
+! CHECK: %[[VAL_4:.*]]:3 = hlfir.associate %[[VAL_3]] {adapt.valuebyref} : (i32) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.call @_QPscalar(%[[VAL_4]]#0) {{.*}}: (!fir.ref<i32>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar_ptr(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.ptr<i32>>> {fir.bindc_name = "i"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.box<!fir.ptr<i32>>> {fir.bindc_name = "i"}) {
subroutine test_scalar_ptr(i)
integer, pointer :: i
call scalar(i)
-! CHECK: %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>
! CHECK: %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<i32>) -> i64
! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
-! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
-! CHECK: %[[VAL_8:.*]] = fir.box_addr %[[VAL_7]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
-! CHECK: %[[VAL_9:.*]] = fir.if %[[VAL_6]] -> (!fir.ref<i32>) {
-! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_8]] : !fir.ptr<i32>
-! CHECK: fir.store %[[VAL_10]] to %[[VAL_1]] : !fir.ref<i32>
-! CHECK: fir.result %[[VAL_1]] : !fir.ref<i32>
+! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
+! CHECK: fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>
+! CHECK: fir.box_addr
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_11:.*]] = fir.absent !fir.ref<i32>
-! CHECK: fir.result %[[VAL_11]] : !fir.ref<i32>
+! CHECK: fir.absent !fir.ref<i32>
! CHECK: }
-! CHECK: fir.call @_QPscalar(%[[VAL_12:.*]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: fir.call @_QPscalar(%[[VAL_7]]#0) {{.*}}: (!fir.ref<i32>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar_simple_var(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<i32> {fir.bindc_name = "i"}) {
subroutine test_scalar_simple_var(i)
integer :: i
call scalar(i)
-! CHECK: %[[VAL_1:.*]] = fir.alloca i32
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<i32>
-! CHECK: fir.store %[[VAL_2]] to %[[VAL_1]] : !fir.ref<i32>
-! CHECK: fir.call @_QPscalar(%[[VAL_1]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = hlfir.as_expr %[[VAL_0]]#0 : (!fir.ref<i32>) -> !hlfir.expr<i32>
+! CHECK: %[[VAL_3:.*]]:3 = hlfir.associate %[[VAL_2]] {adapt.valuebyref} : (!hlfir.expr<i32>) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.call @_QPscalar(%[[VAL_3]]#0) {{.*}}: (!fir.ref<i32>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar_alloc(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.heap<i32>>> {fir.bindc_name = "i"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.box<!fir.heap<i32>>> {fir.bindc_name = "i"}) {
subroutine test_scalar_alloc(i)
integer, allocatable :: i
call scalar(i)
-! CHECK: %[[VAL_1:.*]] = fir.alloca i32 {adapt.valuebyref}
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.heap<i32>>>
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.heap<i32>>>
! CHECK: %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.heap<i32>>) -> !fir.heap<i32>
! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.heap<i32>) -> i64
! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
-! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.heap<i32>>>
-! CHECK: %[[VAL_8:.*]] = fir.box_addr %[[VAL_7]] : (!fir.box<!fir.heap<i32>>) -> !fir.heap<i32>
-! CHECK: %[[VAL_9:.*]] = fir.if %[[VAL_6]] -> (!fir.ref<i32>) {
-! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_8]] : !fir.heap<i32>
-! CHECK: fir.store %[[VAL_10]] to %[[VAL_1]] : !fir.ref<i32>
-! CHECK: fir.result %[[VAL_1]] : !fir.ref<i32>
+! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_11:.*]] = fir.absent !fir.ref<i32>
-! CHECK: fir.result %[[VAL_11]] : !fir.ref<i32>
+! CHECK: fir.absent !fir.ref<i32>
! CHECK: }
-! CHECK: fir.call @_QPscalar(%[[VAL_12:.*]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: fir.call @_QPscalar(%[[VAL_7]]#0) {{.*}}: (!fir.ref<i32>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_ptr_2() {
subroutine test_ptr_2()
call scalar(returns_ptr())
-! CHECK: %[[VAL_0:.*]] = fir.alloca i32 {adapt.valuebyref}
-! CHECK: %[[VAL_1:.*]] = fir.alloca !fir.box<!fir.ptr<i32>> {bindc_name = ".result"}
+! CHECK: %[[VAL_0:.*]] = fir.alloca !fir.box<!fir.ptr<i32>> {bindc_name = ".result"}
! CHECK: %[[VAL_2:.*]] = fir.call @_QPreturns_ptr() {{.*}}: () -> !fir.box<!fir.ptr<i32>>
-! CHECK: fir.save_result %[[VAL_2]] to %[[VAL_1]] : !fir.box<!fir.ptr<i32>>, !fir.ref<!fir.box<!fir.ptr<i32>>>
-! CHECK: %[[VAL_3:.*]] = fir.load %[[VAL_1]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
-! CHECK: %[[VAL_4:.*]] = fir.box_addr %[[VAL_3]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
-! CHECK: %[[VAL_5:.*]] = fir.convert %[[VAL_4]] : (!fir.ptr<i32>) -> i64
-! CHECK: %[[VAL_6:.*]] = arith.constant 0 : i64
-! CHECK: %[[VAL_7:.*]] = arith.cmpi ne, %[[VAL_5]], %[[VAL_6]] : i64
-! CHECK: %[[VAL_8:.*]] = fir.load %[[VAL_1]] : !fir.ref<!fir.box<!fir.ptr<i32>>>
-! CHECK: %[[VAL_9:.*]] = fir.box_addr %[[VAL_8]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
-! CHECK: %[[VAL_10:.*]] = fir.if %[[VAL_7]] -> (!fir.ref<i32>) {
-! CHECK: %[[VAL_11:.*]] = fir.load %[[VAL_9]] : !fir.ptr<i32>
-! CHECK: fir.store %[[VAL_11]] to %[[VAL_0]] : !fir.ref<i32>
-! CHECK: fir.result %[[VAL_0]] : !fir.ref<i32>
+! CHECK: fir.save_result %[[VAL_2]] to %[[VAL_0]] : !fir.box<!fir.ptr<i32>>, !fir.ref<!fir.box<!fir.ptr<i32>>>
+! CHECK: %[[VAL_3:.*]]:2 = hlfir.declare %[[VAL_0]] {uniq_name = ".tmp.func_result"}
+! CHECK: %[[VAL_4:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>
+! CHECK: %[[VAL_5:.*]] = fir.box_addr %[[VAL_4]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
+! CHECK: %[[VAL_6:.*]] = fir.convert %[[VAL_5]] : (!fir.ptr<i32>) -> i64
+! CHECK: %[[VAL_7:.*]] = arith.constant 0 : i64
+! CHECK: %[[VAL_8:.*]] = arith.cmpi ne, %[[VAL_6]], %[[VAL_7]] : i64
+! CHECK: %[[VAL_9:.*]]:3 = fir.if %[[VAL_8]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_12:.*]] = fir.absent !fir.ref<i32>
-! CHECK: fir.result %[[VAL_12]] : !fir.ref<i32>
+! CHECK: fir.absent !fir.ref<i32>
! CHECK: }
-! CHECK: fir.call @_QPscalar(%[[VAL_13:.*]]) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: fir.call @_QPscalar(%[[VAL_9]]#0) {{.*}}: (!fir.ref<i32>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_array(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<100xi32>> {fir.bindc_name = "i", fir.optional}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.array<100xi32>> {fir.bindc_name = "i", fir.optional}) {
subroutine test_array(i)
integer, optional :: i(100)
call array(i)
-! CHECK: %[[VAL_1:.*]] = arith.constant 100 : index
-! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<!fir.array<100xi32>>) -> i1
-! CHECK: %[[VAL_3:.*]] = fir.if %[[VAL_2]] -> (!fir.heap<!fir.array<100xi32>>) {
-! CHECK: %[[VAL_4:.*]] = fir.allocmem !fir.array<100xi32>, %[[VAL_1]] {uniq_name = ".copy"}
-! CHECK: %[[VAL_5:.*]] = fir.shape %[[VAL_1]] : (index) -> !fir.shape<1>
-! CHECK: %[[VAL_6:.*]] = fir.array_load %[[VAL_4]](%[[VAL_5]]) : (!fir.heap<!fir.array<100xi32>>, !fir.shape<1>) -> !fir.array<100xi32>
-! CHECK: %[[VAL_7:.*]] = fir.shape %[[VAL_1]] : (index) -> !fir.shape<1>
-! CHECK: %[[VAL_8:.*]] = fir.array_load %[[VAL_0]](%[[VAL_7]]) : (!fir.ref<!fir.array<100xi32>>, !fir.shape<1>) -> !fir.array<100xi32>
-! CHECK: %[[VAL_9:.*]] = arith.constant 1 : index
-! CHECK: %[[VAL_10:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_11:.*]] = arith.subi %[[VAL_1]], %[[VAL_9]] : index
-! CHECK: %[[VAL_12:.*]] = fir.do_loop %[[VAL_13:.*]] = %[[VAL_10]] to %[[VAL_11]] step %[[VAL_9]] unordered iter_args(%[[VAL_14:.*]] = %[[VAL_6]]) -> (!fir.array<100xi32>) {
-! CHECK: %[[VAL_15:.*]] = fir.array_fetch %[[VAL_8]], %[[VAL_13]] : (!fir.array<100xi32>, index) -> i32
-! CHECK: %[[VAL_16:.*]] = fir.array_update %[[VAL_14]], %[[VAL_15]], %[[VAL_13]] : (!fir.array<100xi32>, i32, index) -> !fir.array<100xi32>
-! CHECK: fir.result %[[VAL_16]] : !fir.array<100xi32>
-! CHECK: }
-! CHECK: fir.array_merge_store %[[VAL_6]], %[[VAL_17:.*]] to %[[VAL_4]] : !fir.array<100xi32>, !fir.array<100xi32>, !fir.heap<!fir.array<100xi32>>
-! CHECK: fir.result %[[VAL_4]] : !fir.heap<!fir.array<100xi32>>
+! CHECK: %[[VAL_0:.*]] = arith.constant 100 : index
+! CHECK: %[[VAL_1:.*]] = fir.shape %[[VAL_0]] : (index) -> !fir.shape<1>
+! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare %[[ARG0]](%[[VAL_1]])
+! CHECK: %[[VAL_3:.*]] = fir.is_present %[[VAL_2]]#0 : (!fir.ref<!fir.array<100xi32>>) -> i1
+! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]] -> (!fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<100xi32>>, i1) {
+! CHECK: %[[VAL_5:.*]] = hlfir.as_expr %[[VAL_2]]#0 : (!fir.ref<!fir.array<100xi32>>) -> !hlfir.expr<100xi32>
+! CHECK: %[[VAL_6:.*]]:3 = hlfir.associate %[[VAL_5]](%[[VAL_1]]) {adapt.valuebyref} : (!hlfir.expr<100xi32>, !fir.shape<1>) -> (!fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<100xi32>>, i1)
+! CHECK: fir.result %[[VAL_6]]#0, %[[VAL_6]]#1, %[[VAL_6]]#2 : !fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<100xi32>>, i1
! CHECK: } else {
-! CHECK: %[[VAL_18:.*]] = fir.zero_bits !fir.heap<!fir.array<100xi32>>
-! CHECK: fir.result %[[VAL_18]] : !fir.heap<!fir.array<100xi32>>
-! CHECK: }
-! CHECK: %[[VAL_19:.*]] = fir.convert %[[VAL_20:.*]] : (!fir.heap<!fir.array<100xi32>>) -> !fir.ref<!fir.array<100xi32>>
-! CHECK: fir.call @_QParray(%[[VAL_19]]) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
-! CHECK: fir.if %[[VAL_2]] {
-! CHECK: fir.freemem %[[VAL_20]] : !fir.heap<!fir.array<100xi32>>
+! CHECK: fir.absent !fir.ref<!fir.array<100xi32>>
! CHECK: }
+! CHECK: fir.call @_QParray(%[[VAL_4]]#0) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_array2(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
+! CHECK-SAME: %[[ARG1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
subroutine test_array2(i, n)
integer(8) :: n
integer, optional, value :: i(n)
call array(i)
-! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_1]] : !fir.ref<i64>
+! CHECK: %[[VAL_N:.*]]:2 = hlfir.declare %[[ARG1]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_N]]#0 : !fir.ref<i64>
! CHECK: %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (i64) -> index
! CHECK: %[[VAL_4:.*]] = arith.constant 0 : index
! CHECK: %[[VAL_5:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[VAL_4]] : index
! CHECK: %[[VAL_6:.*]] = arith.select %[[VAL_5]], %[[VAL_3]], %[[VAL_4]] : index
-! CHECK: %[[VAL_7:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<!fir.array<?xi32>>) -> i1
-! CHECK: %[[VAL_8:.*]] = fir.if %[[VAL_7]] -> (!fir.heap<!fir.array<?xi32>>) {
-! CHECK: %[[VAL_9:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_6]] {uniq_name = ".copy"}
-! CHECK: %[[VAL_17:.*]] = fir.do_loop
-! CHECK: }
-! CHECK: fir.array_merge_store %{{.*}}, %[[VAL_17]] to %[[VAL_9]] : !fir.array<?xi32>, !fir.array<?xi32>, !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_9]] : !fir.heap<!fir.array<?xi32>>
+! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_6]] : (index) -> !fir.shape<1>
+! CHECK: %[[VAL_I:.*]]:2 = hlfir.declare %[[ARG0]](%[[VAL_SHAPE]])
+! CHECK: %[[VAL_7:.*]] = fir.is_present %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> i1
+! CHECK: %[[VAL_8:.*]]:3 = fir.if %[[VAL_7]]
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_23:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_23]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: }
-! CHECK: %[[VAL_24:.*]] = fir.convert %[[VAL_8]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<100xi32>>
-! CHECK: fir.call @_QParray(%[[VAL_24]]) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
-! CHECK: fir.if %[[VAL_7]] {
-! CHECK: fir.freemem %[[VAL_8]] : !fir.heap<!fir.array<?xi32>>
+! CHECK: fir.absent
! CHECK: }
+! CHECK: fir.call @_QParray(%[[VAL_8]]#0) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_dyn_array(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
-! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
+! CHECK-SAME: %[[ARG1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
subroutine test_dyn_array(i, n)
integer(8) :: n
integer, optional :: i(n)
call dyn_array(i, n)
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_1]] : !fir.ref<i64>
+! CHECK: %[[VAL_N:.*]]:2 = hlfir.declare %[[ARG1]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_N]]#0 : !fir.ref<i64>
! CHECK: %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (i64) -> index
! CHECK: %[[VAL_4:.*]] = arith.constant 0 : index
! CHECK: %[[VAL_5:.*]] = arith.cmpi sgt, %[[VAL_3]], %[[VAL_4]] : index
! CHECK: %[[VAL_6:.*]] = arith.select %[[VAL_5]], %[[VAL_3]], %[[VAL_4]] : index
-! CHECK: %[[VAL_7:.*]] = fir.is_present %[[VAL_0]] : (!fir.ref<!fir.array<?xi32>>) -> i1
-! CHECK: %[[VAL_8:.*]] = fir.if %[[VAL_7]] -> (!fir.heap<!fir.array<?xi32>>) {
-! CHECK: %[[VAL_9:.*]] = fir.allocmem !fir.array<?xi32>, %{{.*}} {uniq_name = ".copy"}
-! CHECK: %[[VAL_17:.*]] = fir.do_loop
-! CHECK: }
-! CHECK: fir.array_merge_store %{{.*}}, %[[VAL_17]] to %[[VAL_9]] : !fir.array<?xi32>, !fir.array<?xi32>, !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_9]] : !fir.heap<!fir.array<?xi32>>
+! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_6]] : (index) -> !fir.shape<1>
+! CHECK: %[[VAL_I:.*]]:2 = hlfir.declare %[[ARG0]](%[[VAL_SHAPE]])
+! CHECK: %[[VAL_7:.*]] = fir.is_present %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> i1
+! CHECK: %[[VAL_8:.*]]:3 = fir.if %[[VAL_7]]
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_23:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_23]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: }
-! CHECK: %[[VAL_24:.*]] = fir.convert %[[VAL_8]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<?xi32>>
-! CHECK: fir.call @_QPdyn_array(%[[VAL_24]], %[[VAL_1]]) {{.*}}: (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
-! CHECK: fir.if %[[VAL_7]] {
-! CHECK: fir.freemem %[[VAL_8]] : !fir.heap<!fir.array<?xi32>>
+! CHECK: fir.absent
! CHECK: }
+! CHECK: fir.call @_QPdyn_array(%[[VAL_8]]#0, %[[VAL_N]]#0) {{.*}}: (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_dyn_array_from_assumed(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.box<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
-! CHECK-SAME: %[[VAL_1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.box<!fir.array<?xi32>> {fir.bindc_name = "i", fir.optional},
+! CHECK-SAME: %[[ARG1:.*]]: !fir.ref<i64> {fir.bindc_name = "n"}) {
subroutine test_dyn_array_from_assumed(i, n)
integer(8) :: n
integer, optional :: i(:)
call dyn_array(i, n)
-! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_0]] : (!fir.box<!fir.array<?xi32>>) -> i1
-! CHECK: %[[VAL_3:.*]] = fir.zero_bits !fir.ref<!fir.array<?xi32>>
-! CHECK: %[[VAL_4:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_5:.*]] = fir.shape %[[VAL_4]] : (index) -> !fir.shape<1>
-! CHECK: %[[VAL_6:.*]] = fir.embox %[[VAL_3]](%[[VAL_5]]) : (!fir.ref<!fir.array<?xi32>>, !fir.shape<1>) -> !fir.box<!fir.array<?xi32>>
-! CHECK: %[[VAL_7:.*]] = arith.select %[[VAL_2]], %[[VAL_0]], %[[VAL_6]] : !fir.box<!fir.array<?xi32>>
-! CHECK: %[[box_none:.*]] = fir.convert %[[VAL_7]] : (!fir.box<!fir.array<?xi32>>) -> !fir.box<none>
-! CHECK: %[[is_contiguous:.*]] = fir.call @_FortranAIsContiguous(%[[box_none]]) {{.*}}: (!fir.box<none>) -> i1
-! CHECK: %[[VAL_8:.*]] = fir.if %[[VAL_2]] -> (!fir.heap<!fir.array<?xi32>>) {
-! CHECK: %[[VAL_9:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_10:.*]]:3 = fir.box_dims %[[VAL_7]], %[[VAL_9]] : (!fir.box<!fir.array<?xi32>>, index) -> (index, index, index)
-! CHECK: %[[VAL_11:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_10]]#1 {uniq_name = ".copy"}
-! CHECK: fir.call @_FortranAAssign
-! CHECK: fir.result %[[VAL_11]] : !fir.heap<!fir.array<?xi32>>
+! CHECK: %[[VAL_I:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_N:.*]]:2 = hlfir.declare %[[ARG1]]
+! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> i1
+! CHECK: %[[VAL_3:.*]]:3 = fir.if %[[VAL_2]]
+! CHECK: hlfir.as_expr
+! CHECK: fir.box_dims
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_24:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_24]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: }
-! CHECK: %[[not_contiguous:.*]] = arith.cmpi eq, %[[is_contiguous]], %false{{.*}} : i1
-! CHECK: %[[and:.*]] = arith.andi %[[VAL_2]], %[[not_contiguous]] : i1
-! CHECK: %[[VAL_25:.*]] = fir.convert %[[VAL_8]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<?xi32>>
-! CHECK: fir.call @_QPdyn_array(%[[VAL_25]], %[[VAL_1]]) {{.*}}: (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
-! CHECK: fir.if %[[and]] {
-! CHECK: fir.zero
-! CHECK: fir.call @_FortranACopyOutAssign
+! CHECK: fir.absent
! CHECK: }
+! CHECK: fir.call @_QPdyn_array(%[[VAL_3]]#0, %[[VAL_N]]#0) {{.*}}: (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_array_ptr(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {fir.bindc_name = "i"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {fir.bindc_name = "i"}) {
subroutine test_array_ptr(i)
integer, pointer :: i(:)
call array(i)
-! CHECK: %[[VAL_1:.*]] = fir.alloca !fir.box<!fir.array<?xi32>>
-! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>
-! CHECK: %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !fir.ptr<!fir.array<?xi32>>
-! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<!fir.array<?xi32>>) -> i64
-! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
-! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
-! CHECK: %[[VAL_7:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>
-! CHECK: %[[VAL_8:.*]] = fir.convert %[[VAL_7]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !fir.box<none>
-! CHECK: %[[VAL_9:.*]] = fir.call @_FortranAIsContiguous(%[[VAL_8]]) fastmath<contract> : (!fir.box<none>) -> i1
-! CHECK: %[[VAL_10:.*]] = fir.if %[[VAL_6]] -> (!fir.heap<!fir.array<?xi32>>) {
-! CHECK: %[[VAL_11:.*]] = fir.if %[[VAL_9]] -> (!fir.heap<!fir.array<?xi32>>) {
-! CHECK: %[[VAL_12:.*]] = fir.box_addr %[[VAL_7]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_12]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: } else {
-! CHECK: %[[VAL_13:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_14:.*]]:3 = fir.box_dims %[[VAL_7]], %[[VAL_13]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>, index) -> (index, index, index)
-! CHECK: %[[VAL_15:.*]] = fir.allocmem !fir.array<?xi32>, %[[VAL_14]]#1 {uniq_name = ".copy"}
-! CHECK: %[[VAL_16:.*]] = fir.shape %[[VAL_14]]#1 : (index) -> !fir.shape<1>
-! CHECK: %[[VAL_17:.*]] = fir.embox %[[VAL_15]](%[[VAL_16]]) : (!fir.heap<!fir.array<?xi32>>, !fir.shape<1>) -> !fir.box<!fir.array<?xi32>>
-! CHECK: fir.store %[[VAL_17]] to %[[VAL_1]] : !fir.ref<!fir.box<!fir.array<?xi32>>>
-! CHECK: %[[VAL_18:.*]] = fir.address_of(@_QQclX{{.*}}) : !fir.ref<!fir.char<1,{{.*}}>>
-! CHECK: %[[VAL_19:.*]] = arith.constant {{.*}} : i32
-! CHECK: %[[VAL_20:.*]] = fir.convert %[[VAL_1]] : (!fir.ref<!fir.box<!fir.array<?xi32>>>) -> !fir.ref<!fir.box<none>>
-! CHECK: %[[VAL_21:.*]] = fir.convert %[[VAL_7]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !fir.box<none>
-! CHECK: %[[VAL_22:.*]] = fir.convert %[[VAL_18]] : (!fir.ref<!fir.char<1,{{.*}}>>) -> !fir.ref<i8>
-! CHECK: fir.call @_FortranAAssignTemporary(%[[VAL_20]], %[[VAL_21]], %[[VAL_22]], %[[VAL_19]]) fastmath<contract> : (!fir.ref<!fir.box<none>>, !fir.box<none>, !fir.ref<i8>, i32) -> ()
-! CHECK: fir.result %[[VAL_15]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: }
-! CHECK: fir.result %[[VAL_24:.*]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: } else {
-! CHECK: %[[VAL_25:.*]] = fir.zero_bits !fir.heap<!fir.array<?xi32>>
-! CHECK: fir.result %[[VAL_25]] : !fir.heap<!fir.array<?xi32>>
-! CHECK: }
-! CHECK: %[[VAL_26:.*]] = arith.constant false
-! CHECK: %[[VAL_27:.*]] = arith.cmpi eq, %[[VAL_9]], %[[VAL_26]] : i1
-! CHECK: %[[VAL_28:.*]] = arith.andi %[[VAL_6]], %[[VAL_27]] : i1
-! CHECK: %[[VAL_29:.*]] = fir.convert %[[VAL_30:.*]] : (!fir.heap<!fir.array<?xi32>>) -> !fir.ref<!fir.array<100xi32>>
-! CHECK: fir.call @_QParray(%[[VAL_29]]) fastmath<contract> : (!fir.ref<!fir.array<100xi32>>) -> ()
-! CHECK: fir.if %[[VAL_28]] {
-! CHECK: fir.zero
-! CHECK: fir.call @_FortranACopyOutAssign
-! CHECK: }
-! CHECK: return
-! CHECK: }
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>
+! CHECK: %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !fir.ptr<!fir.array<?xi32>>
+! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<!fir.array<?xi32>>) -> i64
+! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
+! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
+! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]]
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
+! CHECK: } else {
+! CHECK: fir.absent
+! CHECK: }
+! CHECK: fir.call @_QParray(%[[VAL_7]]#0) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_char(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.boxchar<1> {fir.bindc_name = "c", fir.optional}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.boxchar<1> {fir.bindc_name = "c", fir.optional}) {
subroutine test_char(c)
character(*), optional :: c
call dyn_char(c)
-! CHECK: %[[VAL_1:.*]]:2 = fir.unboxchar %[[VAL_0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
-! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_1]]#0 : (!fir.ref<!fir.char<1,?>>) -> i1
-! CHECK: %[[VAL_3:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_4:.*]] = arith.select %[[VAL_2]], %[[VAL_1]]#1, %[[VAL_3]] : index
-! CHECK: %[[VAL_5:.*]] = fir.alloca !fir.char<1,?>(%[[VAL_4]] : index) {adapt.valuebyref}
-! CHECK: %[[VAL_6:.*]] = fir.if %[[VAL_2]] -> (!fir.ref<!fir.char<1,?>>) {
-! CHECK: %[[VAL_13:.*]] = fir.convert %[[VAL_5]] : (!fir.ref<!fir.char<1,?>>) -> !llvm.ptr
-! CHECK: %[[VAL_14:.*]] = fir.convert %[[VAL_1]]#0 : (!fir.ref<!fir.char<1,?>>) -> !llvm.ptr
-! CHECK: "llvm.intr.memmove"(%[[VAL_13]], %[[VAL_14]], %{{.*}}) <{isVolatile = false}> : (!llvm.ptr, !llvm.ptr, i64) -> ()
-! CHECK: fir.result %[[VAL_5]] : !fir.ref<!fir.char<1,?>>
+! CHECK: %[[VAL_1:.*]]:2 = fir.unboxchar %[[ARG0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
+! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare %[[VAL_1]]#0 typeparams %[[VAL_1]]#1
+! CHECK: %[[VAL_3:.*]] = fir.is_present %[[VAL_2]]#0 : (!fir.boxchar<1>) -> i1
+! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]]
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_24:.*]] = fir.absent !fir.ref<!fir.char<1,?>>
-! CHECK: fir.result %[[VAL_24]] : !fir.ref<!fir.char<1,?>>
+! CHECK: fir.absent
! CHECK: }
-! CHECK: %[[VAL_25:.*]] = fir.emboxchar %[[VAL_6]], %[[VAL_4]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
-! CHECK: fir.call @_QPdyn_char(%[[VAL_25]]) {{.*}}: (!fir.boxchar<1>) -> ()
+! CHECK: fir.call @_QPdyn_char(%[[VAL_4]]#0) {{.*}}: (!fir.boxchar<1>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_char_ptr(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>> {fir.bindc_name = "c"}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>> {fir.bindc_name = "c"}) {
subroutine test_char_ptr(c)
character(:), pointer :: c
call dyn_char(c)
-! CHECK: %[[VAL_1:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
-! CHECK: %[[VAL_2:.*]] = fir.box_addr %[[VAL_1]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> !fir.ptr<!fir.char<1,?>>
-! CHECK: %[[VAL_3:.*]] = fir.convert %[[VAL_2]] : (!fir.ptr<!fir.char<1,?>>) -> i64
-! CHECK: %[[VAL_4:.*]] = arith.constant 0 : i64
-! CHECK: %[[VAL_5:.*]] = arith.cmpi ne, %[[VAL_3]], %[[VAL_4]] : i64
-! CHECK: %[[VAL_6:.*]] = fir.load %[[VAL_0]] : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
-! CHECK: %[[VAL_7:.*]] = fir.box_elesize %[[VAL_6]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> index
-! CHECK: %[[VAL_8:.*]] = fir.box_addr %[[VAL_6]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> !fir.ptr<!fir.char<1,?>>
-! CHECK: %[[VAL_9:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_10:.*]] = arith.select %[[VAL_5]], %[[VAL_7]], %[[VAL_9]] : index
-! CHECK: %[[VAL_11:.*]] = fir.alloca !fir.char<1,?>(%[[VAL_10]] : index) {adapt.valuebyref}
-! CHECK: %[[VAL_12:.*]] = fir.if %[[VAL_5]] -> (!fir.ref<!fir.char<1,?>>) {
-! CHECK: %[[VAL_19:.*]] = fir.convert %[[VAL_11]] : (!fir.ref<!fir.char<1,?>>) -> !llvm.ptr
-! CHECK: %[[VAL_20:.*]] = fir.convert %[[VAL_8]] : (!fir.ptr<!fir.char<1,?>>) -> !llvm.ptr
-! CHECK: "llvm.intr.memmove"(%[[VAL_19]], %[[VAL_20]], %{{.*}}) <{isVolatile = false}> : (!llvm.ptr, !llvm.ptr, i64) -> ()
-! CHECK: fir.result %[[VAL_11]] : !fir.ref<!fir.char<1,?>>
+! CHECK: %[[VAL_0:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_2:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
+! CHECK: %[[VAL_3:.*]] = fir.box_addr %[[VAL_2]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> !fir.ptr<!fir.char<1,?>>
+! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<!fir.char<1,?>>) -> i64
+! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
+! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
+! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]]
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
! CHECK: } else {
-! CHECK: %[[VAL_30:.*]] = fir.absent !fir.ref<!fir.char<1,?>>
-! CHECK: fir.result %[[VAL_30]] : !fir.ref<!fir.char<1,?>>
+! CHECK: fir.absent
! CHECK: }
-! CHECK: %[[VAL_31:.*]] = fir.emboxchar %[[VAL_12]], %[[VAL_10]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
-! CHECK: fir.call @_QPdyn_char(%[[VAL_31]]) {{.*}}: (!fir.boxchar<1>) -> ()
+! CHECK: fir.call @_QPdyn_char(%[[VAL_7]]#0) {{.*}}: (!fir.boxchar<1>) -> ()
end subroutine
! CHECK-LABEL: func @_QMtestPtest_char_array(
-! CHECK-SAME: %[[VAL_0:.*]]: !fir.box<!fir.array<?x!fir.char<1,?>>> {fir.bindc_name = "c", fir.optional}) {
+! CHECK-SAME: %[[ARG0:.*]]: !fir.box<!fir.array<?x!fir.char<1,?>>> {fir.bindc_name = "c", fir.optional}) {
subroutine test_char_array(c)
integer(8) :: n
character(*), optional :: c(:)
call dyn_char_array(c, n)
-! CHECK: %[[VAL_1:.*]] = fir.alloca !fir.box<!fir.array<?x!fir.char<1,?>>>
-! CHECK: %[[VAL_2:.*]] = fir.alloca i64 {bindc_name = "n", uniq_name = "_QMtestFtest_char_arrayEn"}
-! CHECK: %[[VAL_3:.*]] = fir.is_present %[[VAL_0]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> i1
-! CHECK: %[[VAL_4:.*]] = fir.zero_bits !fir.ref<!fir.array<?x!fir.char<1,?>>>
-! CHECK: %[[VAL_5:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_6:.*]] = fir.shape %[[VAL_5]] : (index) -> !fir.shape<1>
-! CHECK: %[[VAL_7:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_8:.*]] = fir.embox %[[VAL_4]](%[[VAL_6]]) typeparams %[[VAL_7]] : (!fir.ref<!fir.array<?x!fir.char<1,?>>>, !fir.shape<1>, index) -> !fir.box<!fir.array<?x!fir.char<1,?>>>
-! CHECK: %[[VAL_9:.*]] = arith.select %[[VAL_3]], %[[VAL_0]], %[[VAL_8]] : !fir.box<!fir.array<?x!fir.char<1,?>>>
-! CHECK: %[[VAL_10:.*]] = fir.convert %[[VAL_9]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> !fir.box<none>
-! CHECK: %[[VAL_11:.*]] = fir.call @_FortranAIsContiguous(%[[VAL_10]]) fastmath<contract> : (!fir.box<none>) -> i1
-! CHECK: %[[VAL_12:.*]] = fir.if %[[VAL_3]] -> (!fir.heap<!fir.array<?x!fir.char<1,?>>>) {
-! CHECK: %[[VAL_13:.*]] = fir.if %[[VAL_11]] -> (!fir.heap<!fir.array<?x!fir.char<1,?>>>) {
-! CHECK: %[[VAL_14:.*]] = fir.box_addr %[[VAL_9]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> !fir.heap<!fir.array<?x!fir.char<1,?>>>
-! CHECK: fir.result %[[VAL_14]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
-! CHECK: } else {
-! CHECK: %[[VAL_15:.*]] = arith.constant 0 : index
-! CHECK: %[[VAL_16:.*]]:3 = fir.box_dims %[[VAL_9]], %[[VAL_15]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>, index) -> (index, index, index)
-! CHECK: %[[VAL_17:.*]] = fir.box_elesize %[[VAL_9]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> index
-! CHECK: %[[VAL_18:.*]] = fir.allocmem !fir.array<?x!fir.char<1,?>>(%[[VAL_17]] : index), %[[VAL_16]]#1 {uniq_name = ".copy"}
-! CHECK: %[[VAL_19:.*]] = fir.shape %[[VAL_16]]#1 : (index) -> !fir.shape<1>
-! CHECK: %[[VAL_20:.*]] = fir.embox %[[VAL_18]](%[[VAL_19]]) typeparams %[[VAL_17]] : (!fir.heap<!fir.array<?x!fir.char<1,?>>>, !fir.shape<1>, index) -> !fir.box<!fir.array<?x!fir.char<1,?>>>
-! CHECK: fir.store %[[VAL_20]] to %[[VAL_1]] : !fir.ref<!fir.box<!fir.array<?x!fir.char<1,?>>>>
-! CHECK: %[[VAL_21:.*]] = fir.address_of(@_QQclX{{.*}}) : !fir.ref<!fir.char<1,{{.*}}>>
-! CHECK: %[[VAL_22:.*]] = arith.constant {{.*}} : i32
-! CHECK: %[[VAL_23:.*]] = fir.convert %[[VAL_1]] : (!fir.ref<!fir.box<!fir.array<?x!fir.char<1,?>>>>) -> !fir.ref<!fir.box<none>>
-! CHECK: %[[VAL_24:.*]] = fir.convert %[[VAL_9]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> !fir.box<none>
-! CHECK: %[[VAL_25:.*]] = fir.convert %[[VAL_21]] : (!fir.ref<!fir.char<1,{{.*}}>>) -> !fir.ref<i8>
-! CHECK: fir.call @_FortranAAssignTemporary(%[[VAL_23]], %[[VAL_24]], %[[VAL_25]], %[[VAL_22]]) fastmath<contract> : (!fir.ref<!fir.box<none>>, !fir.box<none>, !fir.ref<i8>, i32) -> ()
-! CHECK: fir.result %[[VAL_18]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
-! CHECK: }
-! CHECK: fir.result %[[VAL_27:.*]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
-! CHECK: } else {
-! CHECK: %[[VAL_28:.*]] = fir.zero_bits !fir.heap<!fir.array<?x!fir.char<1,?>>>
-! CHECK: fir.result %[[VAL_28]] : !fir.heap<!fir.array<?x!fir.char<1,?>>>
-! CHECK: }
-! CHECK: %[[VAL_29:.*]] = fir.box_elesize %[[VAL_9]] : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> index
-! CHECK: %[[VAL_30:.*]] = arith.constant false
-! CHECK: %[[VAL_31:.*]] = arith.cmpi eq, %[[VAL_11]], %[[VAL_30]] : i1
-! CHECK: %[[VAL_32:.*]] = arith.andi %[[VAL_3]], %[[VAL_31]] : i1
-! CHECK: %[[VAL_33:.*]] = fir.convert %[[VAL_34:.*]] : (!fir.heap<!fir.array<?x!fir.char<1,?>>>) -> !fir.ref<!fir.char<1,?>>
-! CHECK: %[[VAL_35:.*]] = fir.emboxchar %[[VAL_33]], %[[VAL_29]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
-! CHECK: fir.call @_QPdyn_char_array(%[[VAL_35]], %[[VAL_2]]) fastmath<contract> : (!fir.boxchar<1>, !fir.ref<i64>) -> ()
-! CHECK: fir.if %[[VAL_32]] {
-! CHECK: fir.zero
-! CHECK: fir.call @_FortranACopyOutAssign
-! CHECK: }
-! CHECK: return
-! CHECK: }
+! CHECK: %[[VAL_C:.*]]:2 = hlfir.declare %[[ARG0]]
+! CHECK: %[[VAL_N:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QMtestFtest_char_arrayEn"}
+! CHECK: %[[VAL_3:.*]] = fir.is_present %[[VAL_C]]#0 : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> i1
+! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]]
+! CHECK: hlfir.as_expr
+! CHECK: hlfir.associate
+! CHECK: fir.emboxchar
+! CHECK: } else {
+! CHECK: fir.absent !fir.boxchar<1>
+! CHECK: }
+! CHECK: fir.call @_QPdyn_char_array(%[[VAL_4]]#0, %[[VAL_N]]#0) {{.*}}: (!fir.boxchar<1>, !fir.ref<i64>) -> ()
end subroutine
end
>From 8a617da9906d9d043d02c979810932310e363de0 Mon Sep 17 00:00:00 2001
From: Eugene Epshteyn <eepshteyn at nvidia.com>
Date: Thu, 23 Apr 2026 23:01:19 -0400
Subject: [PATCH 2/2] [flang][NFC] Add more CHECK details for hlfir.as_expr,
hlfir.associate, and fir.absent
Expand the previously condensed fir.if region check patterns in
optional-value-caller.f90 to include the full hlfir.as_expr /
hlfir.associate and fir.absent triples, including the fir.result
and hlfir.end_associate operations. This improves coverage of the
HLFIR optional-value call-site lowering.
---
flang/test/Lower/optional-value-caller.f90 | 151 +++++++++++++++------
1 file changed, 110 insertions(+), 41 deletions(-)
diff --git a/flang/test/Lower/optional-value-caller.f90 b/flang/test/Lower/optional-value-caller.f90
index e0c1479432885..e9e709dd58821 100644
--- a/flang/test/Lower/optional-value-caller.f90
+++ b/flang/test/Lower/optional-value-caller.f90
@@ -107,14 +107,19 @@ subroutine test_scalar_ptr(i)
! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
-! CHECK: fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>
-! CHECK: fir.box_addr
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_PLOAD:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>
+! CHECK: %[[VAL_PADDR:.*]] = fir.box_addr %[[VAL_PLOAD]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_PADDR]] : (!fir.ptr<i32>) -> !hlfir.expr<i32>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]] {adapt.valuebyref} : (!hlfir.expr<i32>) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#0, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: } else {
-! CHECK: fir.absent !fir.ref<i32>
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: }
! CHECK: fir.call @_QPscalar(%[[VAL_7]]#0) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_7]]#1, %[[VAL_7]]#2 : !fir.ref<i32>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_scalar_simple_var(
@@ -141,12 +146,19 @@ subroutine test_scalar_alloc(i)
! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_HLOAD:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.heap<i32>>>
+! CHECK: %[[VAL_HADDR:.*]] = fir.box_addr %[[VAL_HLOAD]] : (!fir.box<!fir.heap<i32>>) -> !fir.heap<i32>
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_HADDR]] : (!fir.heap<i32>) -> !hlfir.expr<i32>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]] {adapt.valuebyref} : (!hlfir.expr<i32>) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#0, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: } else {
-! CHECK: fir.absent !fir.ref<i32>
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: }
! CHECK: fir.call @_QPscalar(%[[VAL_7]]#0) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_7]]#1, %[[VAL_7]]#2 : !fir.ref<i32>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_ptr_2() {
@@ -162,12 +174,19 @@ subroutine test_ptr_2()
! CHECK: %[[VAL_7:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_8:.*]] = arith.cmpi ne, %[[VAL_6]], %[[VAL_7]] : i64
! CHECK: %[[VAL_9:.*]]:3 = fir.if %[[VAL_8]] -> (!fir.ref<i32>, !fir.ref<i32>, i1) {
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_RLOAD:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>
+! CHECK: %[[VAL_RADDR:.*]] = fir.box_addr %[[VAL_RLOAD]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_RADDR]] : (!fir.ptr<i32>) -> !hlfir.expr<i32>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]] {adapt.valuebyref} : (!hlfir.expr<i32>) -> (!fir.ref<i32>, !fir.ref<i32>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#0, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: } else {
-! CHECK: fir.absent !fir.ref<i32>
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<i32>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<i32>, !fir.ref<i32>, i1
! CHECK: }
! CHECK: fir.call @_QPscalar(%[[VAL_9]]#0) {{.*}}: (!fir.ref<i32>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_9]]#1, %[[VAL_9]]#2 : !fir.ref<i32>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_array(
@@ -205,13 +224,19 @@ subroutine test_array2(i, n)
! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_6]] : (index) -> !fir.shape<1>
! CHECK: %[[VAL_I:.*]]:2 = hlfir.declare %[[ARG0]](%[[VAL_SHAPE]])
! CHECK: %[[VAL_7:.*]] = fir.is_present %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> i1
-! CHECK: %[[VAL_8:.*]]:3 = fir.if %[[VAL_7]]
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_8:.*]]:3 = fir.if %[[VAL_7]] -> (!fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<?xi32>>, i1) {
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> !hlfir.expr<?xi32>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]](%[[VAL_SHAPE]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)
+! CHECK: %[[VAL_CAST:.*]] = fir.convert %[[VAL_ASSOC]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<100xi32>>
+! CHECK: fir.result %[[VAL_CAST]], %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: } else {
-! CHECK: fir.absent
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<!fir.array<100xi32>>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.array<?xi32>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: }
! CHECK: fir.call @_QParray(%[[VAL_8]]#0) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_8]]#1, %[[VAL_8]]#2 : !fir.ref<!fir.array<?xi32>>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_dyn_array(
@@ -230,13 +255,18 @@ subroutine test_dyn_array(i, n)
! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_6]] : (index) -> !fir.shape<1>
! CHECK: %[[VAL_I:.*]]:2 = hlfir.declare %[[ARG0]](%[[VAL_SHAPE]])
! CHECK: %[[VAL_7:.*]] = fir.is_present %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> i1
-! CHECK: %[[VAL_8:.*]]:3 = fir.if %[[VAL_7]]
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_8:.*]]:3 = fir.if %[[VAL_7]] -> (!fir.ref<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1) {
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> !hlfir.expr<?xi32>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]](%[[VAL_SHAPE]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: } else {
-! CHECK: fir.absent
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<!fir.array<?xi32>>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.array<?xi32>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: }
! CHECK: fir.call @_QPdyn_array(%[[VAL_8]]#0, %[[VAL_N]]#0) {{.*}}: (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_8]]#1, %[[VAL_8]]#2 : !fir.ref<!fir.array<?xi32>>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_dyn_array_from_assumed(
@@ -249,14 +279,20 @@ subroutine test_dyn_array_from_assumed(i, n)
! CHECK: %[[VAL_I:.*]]:2 = hlfir.declare %[[ARG0]]
! CHECK: %[[VAL_N:.*]]:2 = hlfir.declare %[[ARG1]]
! CHECK: %[[VAL_2:.*]] = fir.is_present %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> i1
-! CHECK: %[[VAL_3:.*]]:3 = fir.if %[[VAL_2]]
-! CHECK: hlfir.as_expr
-! CHECK: fir.box_dims
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_3:.*]]:3 = fir.if %[[VAL_2]] -> (!fir.ref<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1) {
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_I]]#0 : (!fir.box<!fir.array<?xi32>>) -> !hlfir.expr<?xi32>
+! CHECK: %[[VAL_DIMS:.*]]:3 = fir.box_dims %[[VAL_I]]#0, %{{.*}} : (!fir.box<!fir.array<?xi32>>, index) -> (index, index, index)
+! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_DIMS]]#1 : (index) -> !fir.shape<1>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]](%[[VAL_SHAPE]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: } else {
-! CHECK: fir.absent
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<!fir.array<?xi32>>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.array<?xi32>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: }
! CHECK: fir.call @_QPdyn_array(%[[VAL_3]]#0, %[[VAL_N]]#0) {{.*}}: (!fir.ref<!fir.array<?xi32>>, !fir.ref<i64>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_3]]#1, %[[VAL_3]]#2 : !fir.ref<!fir.array<?xi32>>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_array_ptr(
@@ -270,13 +306,22 @@ subroutine test_array_ptr(i)
! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<!fir.array<?xi32>>) -> i64
! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
-! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]]
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]] -> (!fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<?xi32>>, i1) {
+! CHECK: %[[VAL_PLOAD:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_PLOAD]] : (!fir.box<!fir.ptr<!fir.array<?xi32>>>) -> !hlfir.expr<?xi32>
+! CHECK: %[[VAL_DIMS:.*]]:3 = fir.box_dims %[[VAL_PLOAD]], %{{.*}} : (!fir.box<!fir.ptr<!fir.array<?xi32>>>, index) -> (index, index, index)
+! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_DIMS]]#1 : (index) -> !fir.shape<1>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]](%[[VAL_SHAPE]]) {adapt.valuebyref} : (!hlfir.expr<?xi32>, !fir.shape<1>) -> (!fir.box<!fir.array<?xi32>>, !fir.ref<!fir.array<?xi32>>, i1)
+! CHECK: %[[VAL_CAST:.*]] = fir.convert %[[VAL_ASSOC]]#1 : (!fir.ref<!fir.array<?xi32>>) -> !fir.ref<!fir.array<100xi32>>
+! CHECK: fir.result %[[VAL_CAST]], %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: } else {
-! CHECK: fir.absent
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.ref<!fir.array<100xi32>>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.array<?xi32>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.ref<!fir.array<100xi32>>, !fir.ref<!fir.array<?xi32>>, i1
! CHECK: }
! CHECK: fir.call @_QParray(%[[VAL_7]]#0) {{.*}}: (!fir.ref<!fir.array<100xi32>>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_7]]#1, %[[VAL_7]]#2 : !fir.ref<!fir.array<?xi32>>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_char(
@@ -287,13 +332,18 @@ subroutine test_char(c)
! CHECK: %[[VAL_1:.*]]:2 = fir.unboxchar %[[ARG0]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
! CHECK: %[[VAL_2:.*]]:2 = hlfir.declare %[[VAL_1]]#0 typeparams %[[VAL_1]]#1
! CHECK: %[[VAL_3:.*]] = fir.is_present %[[VAL_2]]#0 : (!fir.boxchar<1>) -> i1
-! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]]
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]] -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1) {
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_2]]#0 : (!fir.boxchar<1>) -> !hlfir.expr<!fir.char<1,?>>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]] typeparams %[[VAL_1]]#1 {adapt.valuebyref} : (!hlfir.expr<!fir.char<1,?>>, index) -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#0, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1
! CHECK: } else {
-! CHECK: fir.absent
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.boxchar<1>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.char<1,?>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1
! CHECK: }
! CHECK: fir.call @_QPdyn_char(%[[VAL_4]]#0) {{.*}}: (!fir.boxchar<1>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_4]]#1, %[[VAL_4]]#2 : !fir.ref<!fir.char<1,?>>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_char_ptr(
@@ -307,13 +357,23 @@ subroutine test_char_ptr(c)
! CHECK: %[[VAL_4:.*]] = fir.convert %[[VAL_3]] : (!fir.ptr<!fir.char<1,?>>) -> i64
! CHECK: %[[VAL_5:.*]] = arith.constant 0 : i64
! CHECK: %[[VAL_6:.*]] = arith.cmpi ne, %[[VAL_4]], %[[VAL_5]] : i64
-! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]]
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
+! CHECK: %[[VAL_7:.*]]:3 = fir.if %[[VAL_6]] -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1) {
+! CHECK: %[[VAL_PLOAD:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
+! CHECK: %[[VAL_PADDR:.*]] = fir.box_addr %[[VAL_PLOAD]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> !fir.ptr<!fir.char<1,?>>
+! CHECK: %[[VAL_LEN_BOX:.*]] = fir.load %[[VAL_0]]#0 : !fir.ref<!fir.box<!fir.ptr<!fir.char<1,?>>>>
+! CHECK: %[[VAL_LEN:.*]] = fir.box_elesize %[[VAL_LEN_BOX]] : (!fir.box<!fir.ptr<!fir.char<1,?>>>) -> index
+! CHECK: %[[VAL_EBC:.*]] = fir.emboxchar %[[VAL_PADDR]], %[[VAL_LEN]] : (!fir.ptr<!fir.char<1,?>>, index) -> !fir.boxchar<1>
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_EBC]] : (!fir.boxchar<1>) -> !hlfir.expr<!fir.char<1,?>>
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]] typeparams %[[VAL_LEN]] {adapt.valuebyref} : (!hlfir.expr<!fir.char<1,?>>, index) -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1)
+! CHECK: fir.result %[[VAL_ASSOC]]#0, %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1
! CHECK: } else {
-! CHECK: fir.absent
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.boxchar<1>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.char<1,?>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.boxchar<1>, !fir.ref<!fir.char<1,?>>, i1
! CHECK: }
! CHECK: fir.call @_QPdyn_char(%[[VAL_7]]#0) {{.*}}: (!fir.boxchar<1>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_7]]#1, %[[VAL_7]]#2 : !fir.ref<!fir.char<1,?>>, i1
end subroutine
! CHECK-LABEL: func @_QMtestPtest_char_array(
@@ -325,13 +385,22 @@ subroutine test_char_array(c)
! CHECK: %[[VAL_C:.*]]:2 = hlfir.declare %[[ARG0]]
! CHECK: %[[VAL_N:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QMtestFtest_char_arrayEn"}
! CHECK: %[[VAL_3:.*]] = fir.is_present %[[VAL_C]]#0 : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> i1
-! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]]
-! CHECK: hlfir.as_expr
-! CHECK: hlfir.associate
-! CHECK: fir.emboxchar
+! CHECK: %[[VAL_4:.*]]:3 = fir.if %[[VAL_3]] -> (!fir.boxchar<1>, !fir.ref<!fir.array<?x!fir.char<1,?>>>, i1) {
+! CHECK: %[[VAL_EXPR:.*]] = hlfir.as_expr %[[VAL_C]]#0 : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> !hlfir.expr<?x!fir.char<1,?>>
+! CHECK: %[[VAL_DIMS:.*]]:3 = fir.box_dims %[[VAL_C]]#0, %{{.*}} : (!fir.box<!fir.array<?x!fir.char<1,?>>>, index) -> (index, index, index)
+! CHECK: %[[VAL_SHAPE:.*]] = fir.shape %[[VAL_DIMS]]#1 : (index) -> !fir.shape<1>
+! CHECK: %[[VAL_LEN:.*]] = fir.box_elesize %[[VAL_C]]#1 : (!fir.box<!fir.array<?x!fir.char<1,?>>>) -> index
+! CHECK: %[[VAL_ASSOC:.*]]:3 = hlfir.associate %[[VAL_EXPR]](%[[VAL_SHAPE]]) typeparams %[[VAL_LEN]] {adapt.valuebyref} : (!hlfir.expr<?x!fir.char<1,?>>, !fir.shape<1>, index) -> (!fir.box<!fir.array<?x!fir.char<1,?>>>, !fir.ref<!fir.array<?x!fir.char<1,?>>>, i1)
+! CHECK: %[[VAL_BCAST:.*]] = fir.convert %[[VAL_ASSOC]]#1 : (!fir.ref<!fir.array<?x!fir.char<1,?>>>) -> !fir.ref<!fir.char<1,?>>
+! CHECK: %[[VAL_EBC:.*]] = fir.emboxchar %[[VAL_BCAST]], %[[VAL_LEN]] : (!fir.ref<!fir.char<1,?>>, index) -> !fir.boxchar<1>
+! CHECK: fir.result %[[VAL_EBC]], %[[VAL_ASSOC]]#1, %[[VAL_ASSOC]]#2 : !fir.boxchar<1>, !fir.ref<!fir.array<?x!fir.char<1,?>>>, i1
! CHECK: } else {
-! CHECK: fir.absent !fir.boxchar<1>
+! CHECK: %[[ABSENT_0:.*]] = fir.absent !fir.boxchar<1>
+! CHECK: %[[ABSENT_1:.*]] = fir.absent !fir.ref<!fir.array<?x!fir.char<1,?>>>
+! CHECK: %[[FALSE:.*]] = arith.constant false
+! CHECK: fir.result %[[ABSENT_0]], %[[ABSENT_1]], %[[FALSE]] : !fir.boxchar<1>, !fir.ref<!fir.array<?x!fir.char<1,?>>>, i1
! CHECK: }
! CHECK: fir.call @_QPdyn_char_array(%[[VAL_4]]#0, %[[VAL_N]]#0) {{.*}}: (!fir.boxchar<1>, !fir.ref<i64>) -> ()
+! CHECK: hlfir.end_associate %[[VAL_4]]#1, %[[VAL_4]]#2 : !fir.ref<!fir.array<?x!fir.char<1,?>>>, i1
end subroutine
end
More information about the flang-commits
mailing list