44 lines · plain
1// Test alias analysis queries for dummy arguments wired2// 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 %s5 6// The two pointers referencing two different maybe repacked7// versions of the original dummy arguments do not alias:8// CHECK-DAG: test1_y_repack(1)#0 <-> test1_x_repack(1)#0: NoAlias9// CHECK-DAG: test1_x_orig(1)#0 <-> test1_y_orig(1)#0: NoAlias10 11// Repacked dummy does not alias with another original dummy:12// CHECK-DAG: test1_y_repack(1)#0 <-> test1_x_orig(1)#0: NoAlias13// CHECK-DAG: test1_x_repack(1)#0 <-> test1_y_orig(1)#0: NoAlias14 15// Repacked dummy may alias with its original:16// CHECK-DAG: test1_x_repack(1)#0 <-> test1_x_orig(1)#0: MayAlias17// CHECK-DAG: test1_y_repack(1)#0 <-> test1_y_orig(1)#0: MayAlias18 19// Ideally, these should report MustAlias, but MayAlias20// may work as well:21// CHECK-DAG: test1_y_repack(1)#0 <-> test1_y_repack2(1)#0: MayAlias22// CHECK-DAG: test1_x_repack(1)#0 <-> test1_x_repack2(1)#0: MayAlias23 24 25func.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 : index27 %0 = fir.dummy_scope : !fir.dscope28 %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 return43}44