File tree Expand file tree Collapse file tree 1 file changed +5
-1
lines changed
flang/include/flang/Lower/Support Expand file tree Collapse file tree 1 file changed +5
-1
lines changed Original file line number Diff line number Diff line change @@ -572,12 +572,16 @@ class IsEqualEvaluateExpr {
572
572
}
573
573
return true ;
574
574
}
575
+ static bool isEqual (const Fortran::evaluate::SubscriptInteger &x,
576
+ const Fortran::evaluate::SubscriptInteger &y) {
577
+ return x == y;
578
+ }
575
579
template <typename A>
576
580
static bool isEqual (const Fortran::evaluate::ArrayConstructor<A> &x,
577
581
const Fortran::evaluate::ArrayConstructor<A> &y) {
578
582
bool checkCharacterType = true ;
579
583
if constexpr (A::category == Fortran::common::TypeCategory::Character) {
580
- checkCharacterType = x.LEN () == y.LEN ();
584
+ checkCharacterType = isEqual (* x.LEN (), * y.LEN () );
581
585
}
582
586
using Base = Fortran::evaluate::ArrayConstructorValues<A>;
583
587
return isEqual ((Base)x, (Base)y) &&
You can’t perform that action at this time.
0 commit comments