From 5122e43fd830d9d85d34867d0994e63532eb2e61 Mon Sep 17 00:00:00 2001
From: Irame <irame94@gmail.com>
Date: Wed, 27 Oct 2021 14:42:22 +0200
Subject: [PATCH 1/2] Workaround for GreaterEqual symbol in TypeSimple (fix
 #317)

---
 Source/SimpleParser/SimpleParser.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas
index a54e175..4fb8c96 100644
--- a/Source/SimpleParser/SimpleParser.pas
+++ b/Source/SimpleParser/SimpleParser.pas
@@ -5014,7 +5014,11 @@ procedure TmwSimplePasPar.TypeSimple;
   begin
     Expected(ptLower);
     TypeArgs;
-    Expected(ptGreater);
+    // workaround for VAR List: TList<Integer>= nil;
+    if TokenID = ptGreaterEqual then
+      Lexer.RunPos := Lexer.RunPos - 1
+    else
+      Expected(ptGreater);
   end;
 end;
 

From 99ba3ccabdc4eba669027322325d76e2ea117eec Mon Sep 17 00:00:00 2001
From: Irame <irame94@gmail.com>
Date: Thu, 28 Oct 2021 19:53:32 +0200
Subject: [PATCH 2/2] Added Test for #317

---
 Test/Snippets/genericvarinitialvalue.pas | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 Test/Snippets/genericvarinitialvalue.pas

diff --git a/Test/Snippets/genericvarinitialvalue.pas b/Test/Snippets/genericvarinitialvalue.pas
new file mode 100644
index 0000000..643c0a4
--- /dev/null
+++ b/Test/Snippets/genericvarinitialvalue.pas
@@ -0,0 +1,9 @@
+unit genericvarinitialvalue;
+
+interface
+
+var MyList : TList<Integer>= nil;
+
+implementation
+
+end.