|
| 1 | +// Test alias analysis queries for dummy arguments wired |
| 2 | +// through fir.pack_array. |
| 3 | +// fir.pack_array is a pass-through operation for FIR alias analysis. |
| 4 | +// RUN: fir-opt %s --test-fir-alias-analysis -split-input-file --mlir-disable-threading 2>&1 | FileCheck %s |
| 5 | + |
| 6 | +// The two pointers referencing two different maybe repacked |
| 7 | +// versions of the original dummy arguments do not alias: |
| 8 | +// CHECK-DAG: test1_y_repack(1)#0 <-> test1_x_repack(1)#0: NoAlias |
| 9 | +// CHECK-DAG: test1_x_orig(1)#0 <-> test1_y_orig(1)#0: NoAlias |
| 10 | + |
| 11 | +// Repacked dummy does not alias with another original dummy: |
| 12 | +// CHECK-DAG: test1_y_repack(1)#0 <-> test1_x_orig(1)#0: NoAlias |
| 13 | +// CHECK-DAG: test1_x_repack(1)#0 <-> test1_y_orig(1)#0: NoAlias |
| 14 | + |
| 15 | +// Repacked dummy may alias with its original: |
| 16 | +// CHECK-DAG: test1_x_repack(1)#0 <-> test1_x_orig(1)#0: MayAlias |
| 17 | +// CHECK-DAG: test1_y_repack(1)#0 <-> test1_y_orig(1)#0: MayAlias |
| 18 | + |
| 19 | +// Ideally, these should report MustAlias, but MayAlias |
| 20 | +// may work as well: |
| 21 | +// CHECK-DAG: test1_y_repack(1)#0 <-> test1_y_repack2(1)#0: MayAlias |
| 22 | +// CHECK-DAG: test1_x_repack(1)#0 <-> test1_x_repack2(1)#0: MayAlias |
| 23 | + |
| 24 | + |
| 25 | +func.func @_QFtest1(%arg0: !fir.box<!fir.array<?xf32>> {fir.bindc_name = "x"}, %arg1: !fir.box<!fir.array<?xf32>> {fir.bindc_name = "y"}) { |
| 26 | + %c1 = arith.constant 1 : index |
| 27 | + %0 = fir.dummy_scope : !fir.dscope |
| 28 | + %1 = fir.pack_array %arg0 heap whole : (!fir.box<!fir.array<?xf32>>) -> !fir.box<!fir.array<?xf32>> |
| 29 | + %2:2 = hlfir.declare %1 dummy_scope %0 {uniq_name = "_QFtest1Ex"} : (!fir.box<!fir.array<?xf32>>, !fir.dscope) -> (!fir.box<!fir.array<?xf32>>, !fir.box<!fir.array<?xf32>>) |
| 30 | + %3 = fir.pack_array %arg1 heap whole : (!fir.box<!fir.array<?xf32>>) -> !fir.box<!fir.array<?xf32>> |
| 31 | + %4:2 = hlfir.declare %3 dummy_scope %0 {uniq_name = "_QFtest1Ey"} : (!fir.box<!fir.array<?xf32>>, !fir.dscope) -> (!fir.box<!fir.array<?xf32>>, !fir.box<!fir.array<?xf32>>) |
| 32 | + %5 = fir.box_addr %4#0 {test.ptr = "test1_y_repack(1)"} : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<f32> |
| 33 | + %52 = fir.box_addr %4#0 {test.ptr = "test1_y_repack2(1)"} : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<f32> |
| 34 | + %6 = fir.load %5 : !fir.ref<f32> |
| 35 | + %7 = fir.box_addr %2#0 {test.ptr = "test1_x_repack(1)"} : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<f32> |
| 36 | + %72 = fir.box_addr %2#0 {test.ptr = "test1_x_repack2(1)"} : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<f32> |
| 37 | + hlfir.assign %6 to %7 : f32, !fir.ref<f32> |
| 38 | + fir.unpack_array %3 to %arg1 heap : !fir.box<!fir.array<?xf32>> |
| 39 | + fir.unpack_array %1 to %arg0 heap : !fir.box<!fir.array<?xf32>> |
| 40 | + %8 = fir.box_addr %arg0 {test.ptr = "test1_x_orig(1)"} : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<f32> |
| 41 | + %9 = fir.box_addr %arg1 {test.ptr = "test1_y_orig(1)"} : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<f32> |
| 42 | + return |
| 43 | +} |
0 commit comments