@@ -63,19 +63,20 @@ class HashEvaluateExpr {
63
63
}
64
64
static unsigned getHashValue (const Fortran::evaluate::ArrayRef &x) {
65
65
unsigned subs = 1u ;
66
- for (const auto &v : x.subscript ())
66
+ for (const Fortran::evaluate::Subscript &v : x.subscript ())
67
67
subs -= getHashValue (v);
68
68
return getHashValue (x.base ()) * 89u - subs;
69
69
}
70
70
static unsigned getHashValue (const Fortran::evaluate::CoarrayRef &x) {
71
71
unsigned subs = 1u ;
72
- for (const auto &v : x.subscript ())
72
+ for (const Fortran::evaluate::Subscript &v : x.subscript ())
73
73
subs -= getHashValue (v);
74
74
unsigned cosubs = 3u ;
75
- for (const auto &v : x.cosubscript ())
75
+ for (const Fortran::evaluate::Expr<Fortran::evaluate::SubscriptInteger> &v :
76
+ x.cosubscript ())
76
77
cosubs -= getHashValue (v);
77
78
unsigned syms = 7u ;
78
- for (const auto &v : x.base ())
79
+ for (const Fortran::evaluate::SymbolRef &v : x.base ())
79
80
syms += getHashValue (v);
80
81
return syms * 97u - subs - cosubs + getHashValue (x.stat ()) + 257u +
81
82
getHashValue (x.team ());
@@ -196,7 +197,7 @@ class HashEvaluateExpr {
196
197
return 103u ;
197
198
}
198
199
static unsigned getHashValue (const Fortran::evaluate::ActualArgument &x) {
199
- if (const auto *sym = x.GetAssumedTypeDummy ())
200
+ if (const Fortran::evaluate::Symbol *sym = x.GetAssumedTypeDummy ())
200
201
return getHashValue (*sym);
201
202
return getHashValue (*x.UnwrapExpr ());
202
203
}
@@ -206,7 +207,8 @@ class HashEvaluateExpr {
206
207
}
207
208
static unsigned getHashValue (const Fortran::evaluate::ProcedureRef &x) {
208
209
unsigned args = 13u ;
209
- for (const auto &v : x.arguments ())
210
+ for (const std::optional<Fortran::evaluate::ActualArgument> &v :
211
+ x.arguments ())
210
212
args -= getHashValue (v);
211
213
return getHashValue (x.proc ()) * 101u - args;
212
214
}
@@ -313,7 +315,7 @@ class IsEqualEvaluateExpr {
313
315
static bool isEqual (const std::vector<A> &x, const std::vector<A> &y) {
314
316
if (x.size () != y.size ())
315
317
return false ;
316
- const auto size = x.size ();
318
+ const std:: size_t size = x.size ();
317
319
for (std::remove_const_t <decltype (size)> i = 0 ; i < size; ++i)
318
320
if (!isEqual (x[i], y[i]))
319
321
return false ;
@@ -462,8 +464,8 @@ class IsEqualEvaluateExpr {
462
464
}
463
465
static bool isEqual (const Fortran::evaluate::ActualArgument &x,
464
466
const Fortran::evaluate::ActualArgument &y) {
465
- if (const auto *xs = x.GetAssumedTypeDummy ()) {
466
- if (const auto *ys = y.GetAssumedTypeDummy ())
467
+ if (const Fortran::evaluate::Symbol *xs = x.GetAssumedTypeDummy ()) {
468
+ if (const Fortran::evaluate::Symbol *ys = y.GetAssumedTypeDummy ())
467
469
return isEqual (*xs, *ys);
468
470
return false ;
469
471
}
@@ -799,7 +801,8 @@ void Fortran::lower::ExplicitIterSpace::exprBase(Fortran::lower::FrontEndExpr x,
799
801
bool lhs) {
800
802
ArrayBaseFinder finder (collectAllSymbols ());
801
803
finder (*x);
802
- auto bases = finder.getBases ();
804
+ llvm::ArrayRef<Fortran::lower::ExplicitIterSpace::ArrayBases> bases =
805
+ finder.getBases ();
803
806
if (rhsBases.empty ())
804
807
endAssign ();
805
808
if (lhs) {
@@ -858,17 +861,19 @@ Fortran::lower::ExplicitIterSpace::findArgPosition(fir::ArrayLoadOp load) {
858
861
llvm::SmallVector<Fortran::lower::FrontEndSymbol>
859
862
Fortran::lower::ExplicitIterSpace::collectAllSymbols () {
860
863
llvm::SmallVector<Fortran::lower::FrontEndSymbol> result;
861
- for (auto vec : symbolStack)
864
+ for (llvm::SmallVector<FrontEndSymbol> vec : symbolStack)
862
865
result.append (vec.begin (), vec.end ());
863
866
return result;
864
867
}
865
868
866
869
llvm::raw_ostream &
867
870
Fortran::lower::operator <<(llvm::raw_ostream &s,
868
871
const Fortran::lower::ImplicitIterSpace &e) {
869
- for (auto &xs : e.getMasks ()) {
872
+ for (const llvm::SmallVector<
873
+ Fortran::lower::ImplicitIterSpace::FrontEndMaskExpr> &xs :
874
+ e.getMasks ()) {
870
875
s << " { " ;
871
- for (auto &x : xs)
876
+ for (const Fortran::lower::ImplicitIterSpace::FrontEndMaskExpr &x : xs)
872
877
x->AsFortran (s << ' (' ) << " ), " ;
873
878
s << " }\n " ;
874
879
}
@@ -897,12 +902,14 @@ Fortran::lower::operator<<(llvm::raw_ostream &s,
897
902
u);
898
903
};
899
904
s << " LHS bases:\n " ;
900
- for (auto &u : e.lhsBases )
905
+ for (const llvm::Optional<Fortran::lower::ExplicitIterSpace::ArrayBases> &u :
906
+ e.lhsBases )
901
907
if (u.hasValue ())
902
908
dump (u.getValue ());
903
909
s << " RHS bases:\n " ;
904
- for (auto &bases : e.rhsBases ) {
905
- for (auto &u : bases)
910
+ for (const llvm::SmallVector<Fortran::lower::ExplicitIterSpace::ArrayBases>
911
+ &bases : e.rhsBases ) {
912
+ for (const Fortran::lower::ExplicitIterSpace::ArrayBases &u : bases)
906
913
dump (u);
907
914
s << ' \n ' ;
908
915
}
0 commit comments