f7420a9dff
Currently fir::isDummyArgument is being used to check if a DeclareOp represents a dummy argument. The argument passed to the function is declOp.getMemref(). This bypasses the code in isDummyArgument that checks for dummy_scope because the `Value` returned by the getMemref() may not have DeclareOp as its defining op. This bypassing mean that sometime a variable will be marked as argument when it should not. This happened in this case where same arg was being used for 2 different result variables with use of `entry` in the function. The solution is to check directly if the declOp has a dummy_scope. If yes, we know this is dummy argument. We can now check if the memref points to the BlockArgument and use its number. This will still miss arguments where memref does not directly point to a BlockArgument but that is missed currently too. Note that we can still evaluate those variable in debugger. It is just that they are not marked as arguments. Fixes #116525.
13 lines
213 B
Fortran
13 lines
213 B
Fortran
! RUN: %flang_fc1 -fopenmp -emit-llvm -debug-info-kind=standalone %s -o -
|
|
|
|
! Test that this does not cause build failure.
|
|
function s(x)
|
|
character(len=2) :: x, s, ss
|
|
|
|
s = x
|
|
|
|
entry ss()
|
|
|
|
end function s
|
|
|