From f6f7de6d876463e13807e8689dcb748cc375f27a Mon Sep 17 00:00:00 2001
From: Doug Kearns <dougkearns@gmail.com>
Date: Sun, 14 Mar 2021 20:30:15 +1100
Subject: [PATCH] Fixes sloppy parsing of array sub arguments

The following now produces a syntax error for the missing closing
parenthesis of the parameter list.

E.g. sub foo(bar(): end sub
---
 source/qb64.bas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/qb64.bas b/source/qb64.bas
index 4e0cb9b51..6d7e3f7ea 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -4862,6 +4862,7 @@ DO
                             IF t2$ = "" THEN t2$ = e$ ELSE t2$ = t2$ + " " + e$
                             gotaa2:
                         NEXT i2
+                        IF m = 1 THEN a$ = "Syntax error": GOTO errmes
                         IF symbol2$ <> "" AND t2$ <> "" THEN a$ = "Syntax error": GOTO errmes