Allow array declaration to follow type, before identifier

src/samplesrc/sieve.pla

@@ -40,8 +40,8 @@ for iter = 1 to 10
         k = k + prime
       loop
       count = count + 1
-      ;puti(prime)
-      ;putln
+      // puti(prime)
+      // putln
     fin
   next
 next

src/samplesrc/test.pla

@@ -5,17 +5,19 @@ include(stdlib.plh)
 include(testlib.plh)
 //
 // Declare all global variables for this module.
+// Note that arrays are declared with prefix []. postfix [], or no [].
+// Only arrays with predclared sizes need [ and ], such as "int[3] a".
 //
-byte hello[] = "Hello, Apple "
-byte a1[] = "1"
-byte a2[] = "]["
-byte a2p[] = "][+"
-byte a2e[] = "//e"
-byte a2c[] = "//c"
-byte a3[] = "///"
+byte[] hello = "Hello, Apple "
+byte[] a1 = "1"
+byte[] a2 = "]["
+byte[] a2p = "][+"
+byte[] a2e = "//e"
+byte[] a2c = "//c"
+byte[] a3 = "///"
 word struct[] = 1, 10, 100, 1000, 10000
 word ptr
-byte spaces[] = "   "
+byte spaces = "   "
 //
 // Define functions.
 //

src/toolsrc/parse.c

@@ -983,7 +983,18 @@ int parse_var(int type)
     int  consttype, constsize, arraysize, idlen = 0;
     long size = 1;
     
-    if (scan() == ID_TOKEN)
+    if (scan() == OPEN_BRACKET_TOKEN)
+    {
+        size = 0;
+        parse_constexpr(&size, &constsize);
+        if (scantoken != CLOSE_BRACKET_TOKEN)
+        {
+            parse_error("Missing closing bracket");
+            return (0);
+        }
+        scan();
+    }
+    if (scantoken == ID_TOKEN)
     {
         idstr = tokenstr;
         idlen = tokenlen;