File tree Expand file tree Collapse file tree 3 files changed +2
-5
lines changed Expand file tree Collapse file tree 3 files changed +2
-5
lines changed Original file line number Diff line number Diff line change 22
22
// ===----------------------------------------------------------------------===//
23
23
24
24
bool Fortran::lower::CallerInterface::hasAlternateReturns () const {
25
- return procRef.HasAlternateReturns ();
25
+ return procRef.hasAlternateReturns ();
26
26
}
27
27
28
28
std::string Fortran::lower::CallerInterface::getMangledName () const {
Original file line number Diff line number Diff line change @@ -1341,7 +1341,7 @@ class ExprLowering {
1341
1341
1342
1342
fir::ExtendedValue genval (const Fortran::evaluate::ProcedureRef &procRef) {
1343
1343
llvm::SmallVector<mlir::Type, 1 > resTy;
1344
- if (procRef.HasAlternateReturns ())
1344
+ if (procRef.hasAlternateReturns ())
1345
1345
resTy.push_back (builder.getIndexType ());
1346
1346
return genProcedureRef (procRef, resTy);
1347
1347
}
Original file line number Diff line number Diff line change @@ -2011,9 +2011,6 @@ void ExpressionAnalyzer::Analyze(const parser::CallStmt &callStmt) {
2011
2011
analyzer.Analyze (arg, true /* is subroutine call */ );
2012
2012
}
2013
2013
if (!analyzer.fatalErrors ()) {
2014
- // An alternate return specifier actual argument has no code in the call.
2015
- bool hasAlternateReturns{
2016
- analyzer.GetActuals ().size () < actualArgList.size ()};
2017
2014
if (std::optional<CalleeAndArguments> callee{
2018
2015
GetCalleeAndArguments (std::get<parser::ProcedureDesignator>(call.t ),
2019
2016
analyzer.GetActuals (), true /* subroutine */ )}) {
You can’t perform that action at this time.
0 commit comments