We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
isEqual
1 parent 595c4f6 commit 6442b33Copy full SHA for 6442b33
flang/include/flang/Lower/Support/Utils.h
@@ -572,12 +572,16 @@ class IsEqualEvaluateExpr {
572
}
573
return true;
574
575
+ static bool isEqual(const Fortran::evaluate::SubscriptInteger &x,
576
+ const Fortran::evaluate::SubscriptInteger &y) {
577
+ return x == y;
578
+ }
579
template <typename A>
580
static bool isEqual(const Fortran::evaluate::ArrayConstructor<A> &x,
581
const Fortran::evaluate::ArrayConstructor<A> &y) {
582
bool checkCharacterType = true;
583
if constexpr (A::category == Fortran::common::TypeCategory::Character) {
- checkCharacterType = x.LEN() == y.LEN();
584
+ checkCharacterType = isEqual(*x.LEN(), *y.LEN());
585
586
using Base = Fortran::evaluate::ArrayConstructorValues<A>;
587
return isEqual((Base)x, (Base)y) &&
0 commit comments