1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
// Test that the HLFIR pipeline does not call MLIR canonicalizer with block
// merging enabled (moving fir.shape to block argument would cause failures
// when translating the FIR to LLVM).
// RUN: %flang_fc1 %s -flang-experimental-hlfir -emit-llvm -O2 -o - | FileCheck %s
func.func @no_shape_merge(%cdt: i1, %from: !fir.ref<!fir.array<?xf64>>, %to : !fir.ref<f64>) {
%c10 = arith.constant 10 : index
%c20 = arith.constant 20 : index
%c5 = arith.constant 5 : index
%shape1 = fir.shape %c10 : (index) -> !fir.shape<1>
%shape2 = fir.shape %c20 : (index) -> !fir.shape<1>
cf.cond_br %cdt, ^bb1, ^bb2
^bb1: // pred: ^bb0
%coor1 = fir.array_coor %from(%shape1) %c5 : (!fir.ref<!fir.array<?xf64>>, !fir.shape<1>, index) -> !fir.ref<f64>
%load1 = fir.load %coor1 : !fir.ref<f64>
fir.store %load1 to %to : !fir.ref<f64>
cf.br ^bb3
^bb2: // pred: ^bb0
%coor2 = fir.array_coor %from(%shape2) %c5 : (!fir.ref<!fir.array<?xf64>>, !fir.shape<1>, index) -> !fir.ref<f64>
%load2 = fir.load %coor2 : !fir.ref<f64>
fir.store %load2 to %to : !fir.ref<f64>
cf.br ^bb3
^bb3: // pred: ^bb1, ^bb2
return
}
// Note: block merging happens in the output below, but after FIR codegen.
// CHECK-LABEL: define void @no_shape_merge(
// CHECK: %[[GEP:.*]] = getelementptr double, ptr %{{.*}}
// CHECK: %[[LOAD:.*]] = load double, ptr %[[GEP]]
// CHECK: store double %[[LOAD]], ptr %{{.*}}
// CHECK: ret void
|
