diff options
Diffstat (limited to 'flang/lib/Semantics/pointer-assignment.cpp')
| -rw-r--r-- | flang/lib/Semantics/pointer-assignment.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flang/lib/Semantics/pointer-assignment.cpp b/flang/lib/Semantics/pointer-assignment.cpp index 0770720..a5c3897 100644 --- a/flang/lib/Semantics/pointer-assignment.cpp +++ b/flang/lib/Semantics/pointer-assignment.cpp @@ -333,8 +333,8 @@ bool PointerAssignmentChecker::Check(const evaluate::Designator<T> &d) { } else if (!isBoundsRemapping_ && !lhsType_->attrs().test(TypeAndShape::Attr::AssumedRank)) { - int lhsRank{evaluate::GetRank(lhsType_->shape())}; - int rhsRank{evaluate::GetRank(rhsType->shape())}; + int lhsRank{lhsType_->Rank()}; + int rhsRank{rhsType->Rank()}; if (lhsRank != rhsRank) { msg = MessageFormattedText{ "Pointer has rank %d but target has rank %d"_err_en_US, lhsRank, |