26 lines · plain
1// RUN: fir-opt -pass-pipeline='builtin.module(func.func(test-fir-alias-analysis-modref))' \2// RUN: --mlir-disable-threading %s -o /dev/null 2>&1 | FileCheck %s3 4// Test that fir.call modref is conservative when it cannot enusre it is5// dealing with a Fortran user variable or a Fortran user procedure.6 7// Function "unknown" is not known to be a Fortran procedure.8func.func @_QPtest_unknown_call(%arg0: !fir.ref<f32> {fir.bindc_name = "x"}) {9 %0 = fir.dummy_scope : !fir.dscope10 %1:2 = hlfir.declare %arg0 dummy_scope %0 {test.ptr = "x", uniq_name = "_QFtest_unknown_callEx"} : (!fir.ref<f32>, !fir.dscope) -> (!fir.ref<f32>, !fir.ref<f32>)11 fir.call @unknown() {test.ptr = "unknown"} : () -> ()12 return13}14func.func private @unknown()15// CHECK-LABEL: Testing : "_QPtest_unknown_call"16// CHECK: unknown -> x#0: ModRef17 18// Address "unknown_var" cannot be related to a Fortran variable.19func.func @_QPtest_unknown_var(%arg0: !fir.ref<f32>) attributes {test.ptr = "unknown_var"} {20 fir.call @_QPfortran_procedure() {test.ptr = "fortran_procedure"}: () -> ()21 return22}23func.func private @_QPfortran_procedure()24// CHECK-LABEL: Testing : "_QPtest_unknown_var"25// CHECK: fortran_procedure -> unknown_var.region0#0: ModRef26