modref-call-not-fortran.fir

// RUN:  fir-test-opt -pass-pipeline='builtin.module(func.func(test-fir-alias-analysis-modref))' \
// RUN:  --mlir-disable-threading %s -o /dev/null 2>&1 | FileCheck %s

// Test that fir.call modref is conservative when it cannot enusre it is
// dealing with a Fortran user variable or a Fortran user procedure.

// Function "unknown" is not known to be a Fortran procedure.
func.func @_QPtest_unknown_call(%arg0: !fir.ref<f32> {fir.bindc_name = "x"}) {
  %0 = fir.dummy_scope : !fir.dscope
  %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>)
  fir.call @unknown() {test.ptr = "unknown"} : () -> ()
  return
}
func.func private @unknown()
// CHECK-LABEL: Testing : "_QPtest_unknown_call"
// CHECK: unknown -> x#0: ModRef

// Address "unknown_var" cannot be related to a Fortran variable.
func.func @_QPtest_unknown_var(%arg0: !fir.ref<f32>) attributes {test.ptr = "unknown_var"} {
  fir.call @_QPfortran_procedure() {test.ptr = "fortran_procedure"}: () -> ()
  return
}
func.func private @_QPfortran_procedure()
// CHECK-LABEL: Testing : "_QPtest_unknown_var"
// CHECK: fortran_procedure -> unknown_var.region0#0: ModRef