From 03982022dce71f404d792188d36d6624f3bf8f19 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Fri, 21 Jan 2022 13:14:20 -0300
Subject: [PATCH] Fix error with stray `As` in Sub parameters

Things like this used to be treated as valid:
```
Sub foo(bar As)
End Sub
```
---
 source/qb64.bas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/qb64.bas b/source/qb64.bas
index b37975149..b9f057b8c 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -2549,6 +2549,7 @@ DO
                                         argnelereq = 0
 
                                         IF symbol2$ <> "" AND t2$ <> "" THEN a$ = "Syntax error - check parameter types": GOTO errmes
+                                        IF t2$ = "" AND e$ = "AS" THEN a$ = "Expected AS type": GOTO errmes
                                         IF t2$ = "" THEN t2$ = symbol2$
                                         IF t2$ = "" THEN
                                             IF LEFT$(n2$, 1) = "_" THEN v = 27 ELSE v = ASC(UCASE$(n2$)) - 64