f18-llvm-project
f18-llvm-project copied to clipboard
Statement function inside internal procedure with ref to host variable hits symbol is not mapped
subroutine foo()
implicit none
integer :: stepx
contains
subroutine bar()
integer :: edgex, i
edgex(i) = i + stepx
print *, edgex(10)
end subroutine
end subroutine
stepx is not mapped when lowering edgex(10) in https://github.com/flang-compiler/f18-llvm-project/blob/2daaaaa61f2704abc3424e92e9edb551a7b215ef/flang/lib/Lower/ConvertExpr.cpp#L1686