diff options
Diffstat (limited to 'flang/lib/Semantics/pointer-assignment.cpp')
| -rw-r--r-- | flang/lib/Semantics/pointer-assignment.cpp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/flang/lib/Semantics/pointer-assignment.cpp b/flang/lib/Semantics/pointer-assignment.cpp index afa1552..7003242 100644 --- a/flang/lib/Semantics/pointer-assignment.cpp +++ b/flang/lib/Semantics/pointer-assignment.cpp @@ -174,8 +174,7 @@ bool PointerAssignmentChecker::Check(const evaluate::FunctionRef<T> &f) { if (!lhsType_->IsCompatibleWith(context_.messages(), *frTypeAndShape, "pointer", "function result", false /*elemental*/, evaluate::CheckConformanceFlags::BothDeferredShape)) { - msg = "%s is associated with the result of a reference to function '%s'" - " whose pointer result has an incompatible type or shape"_err_en_US; + return false; // IsCompatibleWith() emitted message } } if (msg) { |