[flang-commits] [PATCH] D127790: [flang] Add more qualification when creating names for compiler-generated USEs

[Peter Klausler via Phabricator via flang-commits]

This revision was automatically updated to reflect the committed changes.
Closed by commit rGbcad53e13175: [flang] Add more qualification when creating names for compiler-generated USEs (authored by klausler).

Repository:
  rG LLVM Github Monorepo

CHANGES SINCE LAST ACTION
  https://reviews.llvm.org/D127790/new/

https://reviews.llvm.org/D127790

Files:
  flang/lib/Semantics/expression.cpp
  flang/test/Semantics/modfile39.f90


Index: flang/test/Semantics/modfile39.f90
===================================================================
--- flang/test/Semantics/modfile39.f90
+++ flang/test/Semantics/modfile39.f90
@@ -36,11 +36,11 @@
 !Expect: m2.mod
 !module m2
 !use m1,only:gen
-!use m1,only:m1$priv=>priv
-!private::m1$priv
+!use m1,only:m1$m1$priv=>priv
+!private::m1$m1$priv
 !contains
 !subroutine s(a)
-!real(4)::a(1_8:int(m1$priv(1_4),kind=8))
+!real(4)::a(1_8:int(m1$m1$priv(1_4),kind=8))
 !end
 !end
 
Index: flang/lib/Semantics/expression.cpp
===================================================================
--- flang/lib/Semantics/expression.cpp
+++ flang/lib/Semantics/expression.cpp
@@ -2210,6 +2210,7 @@
     // Create a renaming USE of the specific procedure.
     auto rename{context_.SaveTempName(
         used->symbol().owner().GetName().value().ToString() + "$" +
+        specific.owner().GetName().value().ToString() + "$" +
         specific.name().ToString())};
     return *const_cast<semantics::Scope &>(scope)
                 .try_emplace(rename, specific.attrs(),


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D127790.437336.patch
Type: text/x-patch
Size: 1072 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/flang-commits/attachments/20220615/f993e658/attachment-0001.bin>