[flang] Fix GetHostProcedure() for main program
authorpeter klausler <pklausler@nvidia.com>
Fri, 3 Sep 2021 20:55:18 +0000 (13:55 -0700)
committerpeter klausler <pklausler@nvidia.com>
Tue, 7 Sep 2021 16:15:23 +0000 (09:15 -0700)
commitf348f30d6fe9898e1789657dda1e30d6243abd58
treebdeaeecdee3b823d4482b70202793582ba588e5c
parent3b5f318f5d2df423afd3b5dddd824fc9a66db17b
[flang] Fix GetHostProcedure() for main program

It only worked for internal procedures of subprograms,
but must also allow for internal procedures of the
main program.  This broke the use of host-associated
implicitly-typed symbols in specification expressions
of internal procedures.

Differential Revision: https://reviews.llvm.org/D109262
flang/lib/Semantics/resolve-names.cpp