diff options
Diffstat (limited to 'flang/lib/Semantics/pointer-assignment.cpp')
| -rw-r--r-- | flang/lib/Semantics/pointer-assignment.cpp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/flang/lib/Semantics/pointer-assignment.cpp b/flang/lib/Semantics/pointer-assignment.cpp index a5c3897..6c634c6 100644 --- a/flang/lib/Semantics/pointer-assignment.cpp +++ b/flang/lib/Semantics/pointer-assignment.cpp @@ -148,6 +148,9 @@ bool PointerAssignmentChecker::CheckLeftHandSide(const SomeExpr &lhs) { msg->Attach(std::move(*whyNot)); } return false; + } else if (evaluate::IsAssumedRank(lhs)) { + Say("The left-hand side of a pointer assignment must not be an assumed-rank dummy argument"_err_en_US); + return false; } else { return true; } |