Allow spaces after the array keyword (fixes #120)

src/main/scala/millfork/parser/MfParser.scala

@@ -403,7 +403,7 @@ abstract class MfParser[T](fileId: String, input: String, currentDirectory: Stri
     p <- position("array definition")
     bank <- bankDeclaration
     const <- ("const".! ~ HWS).?
-    _ <- "array" ~ !letterOrDigit
+    _ <- "array" ~ !letterOrDigit ~ HWS
     elementType <- ("(" ~/ AWS ~/ identifier ~ AWS ~ ")").? ~/ HWS
     name <- identifier ~/ HWS
     length <- ("[" ~/ AWS ~/ mfExpression(nonStatementLevel, false) ~ AWS ~ "]").? ~ HWS

src/test/scala/millfork/test/ArraySuite.scala

@@ -666,7 +666,7 @@ class ArraySuite extends FunSuite with Matchers with AppendedClues {
     EmuUnoptimizedCrossPlatformRun(Cpu.Mos/*, Cpu.Intel8080, Cpu.Z80, Cpu.Motorola6809*/)(
       """
         | struct s { word x, word y}
-        | array(s) a[7]
+        | array (s) a[7]
         | word output @$c000
         |
         | void main () {