commit 5cba5c9dd991842052d8276cdacd707038db2b8b
author Jean Perier <jperier@nvidia.com> Thu Sep 30 23:06:22 2021 +0200
committer Copybara-Service <copybara-worker@google.com> Thu Sep 30 14:10:42 2021 -0700
tree b99a2c3357c8cade0d5f930c759dfd62c06bfe51
parent 68f7c85d349d02028f692111edb44227c3473252

[flang] Take into account SubprogramDetails in GetInterfaceSymbol

When the ProcRef is Symbol is a SubprogramDetails, the interface is
the SubprogramDetails. Do not return nullptr.

Differential Revision: https://reviews.llvm.org/D110853

GitOrigin-RevId: 962e503cc8bc411f7523cc393acae8aae425b1c4

lib/Evaluate/call.cpp

diff --git a/lib/Evaluate/call.cpp b/lib/Evaluate/call.cpp
index 395751a..18d51a2 100644
--- a/lib/Evaluate/call.cpp
+++ b/lib/Evaluate/call.cpp
@@ -123,6 +123,8 @@
     } else if (const auto *binding{
                    ultimate.detailsIf<semantics::ProcBindingDetails>()}) {
       return &binding->symbol();
+    } else if (ultimate.has<semantics::SubprogramDetails>()) {
+      return &ultimate;
     }
   }
   return nullptr;