Merge pull request #236 from flang-compiler/tsk-altreturns

Fix spelling of hasAlternateReturns

Author: tskeith

flang/lib/Lower/CallInterface.cpp

@@ -22,7 +22,7 @@
 //===----------------------------------------------------------------------===//
 
 bool Fortran::lower::CallerInterface::hasAlternateReturns() const {
-  return procRef.HasAlternateReturns();
+  return procRef.hasAlternateReturns();
 }
 
 std::string Fortran::lower::CallerInterface::getMangledName() const {

flang/lib/Lower/ConvertExpr.cpp

@@ -1341,7 +1341,7 @@ class ExprLowering {
 
   fir::ExtendedValue genval(const Fortran::evaluate::ProcedureRef &procRef) {
     llvm::SmallVector<mlir::Type, 1> resTy;
-    if (procRef.HasAlternateReturns())
+    if (procRef.hasAlternateReturns())
       resTy.push_back(builder.getIndexType());
     return genProcedureRef(procRef, resTy);
   }

flang/lib/Semantics/expression.cpp

@@ -2011,9 +2011,6 @@ void ExpressionAnalyzer::Analyze(const parser::CallStmt &callStmt) {
     analyzer.Analyze(arg, true /* is subroutine call */);
   }
   if (!analyzer.fatalErrors()) {
-    // An alternate return specifier actual argument has no code in the call.
-    bool hasAlternateReturns{
-        analyzer.GetActuals().size() < actualArgList.size()};
     if (std::optional<CalleeAndArguments> callee{
             GetCalleeAndArguments(std::get<parser::ProcedureDesignator>(call.t),
                 analyzer.GetActuals(), true /* subroutine */)}) {