[flang-commits] [flang] [flang] Lower special bind(c) cases without binding labels (PR #65758)

[Peter Klausler via flang-commits]

================
@@ -99,11 +99,14 @@ Fortran::lower::mangle::mangleName(const Fortran::semantics::Symbol &symbol,
 
   // TODO: A procedure that inherits BIND(C) through another interface
   // (procedure(iface)) should be dealt with in GetBindName() or some wrapper.
-  if (!Fortran::semantics::IsPointer(ultimateSymbol) &&
-      Fortran::semantics::IsBindCProcedure(ultimateSymbol) &&
-      Fortran::semantics::ClassifyProcedure(symbol) !=
-          Fortran::semantics::ProcedureDefinitionClass::Internal)
-    return ultimateSymbol.name().ToString();
+  if (const auto *procDetails{
----------------
klausler wrote:

Thank you.  Before I forget, did you make the name mangling target-specific?  I seem to recall that XLF does not append an underscore character.

https://github.com/llvm/llvm-project/pull/65758