[flang] Fix processing ModuleLikeUnit evaluationList
authorPeixin-Qiao <qiaopeixin@huawei.com>
Fri, 11 Mar 2022 07:20:23 +0000 (15:20 +0800)
committerPeixin-Qiao <qiaopeixin@huawei.com>
Fri, 11 Mar 2022 07:20:23 +0000 (15:20 +0800)
commitf2ac513812e197758e29354c190004eb7bc2f8b6
tree0e860440a748904647f42a103050f517013ab56a
parente9d4922543d3822c62bd64e39e437dc625f07f35
[flang] Fix processing ModuleLikeUnit evaluationList

Push the ModuleLikeUnit evalutionList when entering module unit. Pop it
when exiting module unit if there is no module procedure. Otherwise, pop
it when entering the first module procedure.

Reviewed By: V Donaldson

Differential Revision: https://reviews.llvm.org/D120460
flang/lib/Lower/PFTBuilder.cpp
flang/test/Lower/pre-fir-tree06.f90