From 8f913c656ce0ecdf68f53d571c287b826467002e Mon Sep 17 00:00:00 2001 From: gingerBill Date: Wed, 7 Feb 2018 18:55:01 +0000 Subject: Fix error reporting for assignment to a built-in procedure (#183) --- src/check_stmt.cpp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/check_stmt.cpp') diff --git a/src/check_stmt.cpp b/src/check_stmt.cpp index 0fb82f7d3..8ae789331 100644 --- a/src/check_stmt.cpp +++ b/src/check_stmt.cpp @@ -203,7 +203,9 @@ Type *check_assignment_variable(Checker *c, Operand *lhs, Operand *rhs) { bool used = false; if (lhs->mode == Addressing_Invalid || - (lhs->type == t_invalid && lhs->mode != Addressing_ProcGroup)) { + (lhs->type == t_invalid && + lhs->mode != Addressing_ProcGroup && + lhs->mode != Addressing_Builtin)) { return nullptr; } -- cgit v1.2.3