diff options
Diffstat (limited to 'flang/lib/Semantics/pointer-assignment.cpp')
| -rw-r--r-- | flang/lib/Semantics/pointer-assignment.cpp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/flang/lib/Semantics/pointer-assignment.cpp b/flang/lib/Semantics/pointer-assignment.cpp index 9ac18b0..a2e3497 100644 --- a/flang/lib/Semantics/pointer-assignment.cpp +++ b/flang/lib/Semantics/pointer-assignment.cpp @@ -307,6 +307,10 @@ bool PointerAssignmentChecker::Check(const evaluate::ProcedureDesignator &d) { symbol->name()); return false; } + } else if (symbol->has<ProcBindingDetails>()) { + evaluate::SayWithDeclaration(context_.messages(), *symbol, + "Procedure binding '%s' used as target of a pointer assignment"_port_en_US, + symbol->name()); } } if (auto chars{Procedure::Characterize(d, context_)}) { |