diff --git a/src/main/scala/millfork/parser/MfParser.scala b/src/main/scala/millfork/parser/MfParser.scala
index a1dc9011..03516877 100644
--- a/src/main/scala/millfork/parser/MfParser.scala
+++ b/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
diff --git a/src/test/scala/millfork/test/ArraySuite.scala b/src/test/scala/millfork/test/ArraySuite.scala
index bd2447dd..58f430d6 100644
--- a/src/test/scala/millfork/test/ArraySuite.scala
+++ b/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 () {