From 6618c0dbf7c282a58eb2f78c868f9ecdf96d70a1 Mon Sep 17 00:00:00 2001
From: Frederic Kehrein <frederic@kehrein.org>
Date: Wed, 30 Oct 2024 20:01:39 +0100
Subject: [PATCH] Fixing a bug where an empty postfix for enum was allowed

---
 compiler/pexpr.pas   | 8 +++++++-
 tests/test/tenum7.pp | 9 +++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 tests/test/tenum7.pp

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 9642df5ea0..59b21ab81b 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -2608,7 +2608,13 @@ implementation
                                p1:=cerrornode.create;
                                consume(_ID);
                              end;
-                       end;
+                       end
+                     else
+                       begin
+                         p1.destroy;
+                         p1:=cerrornode.create;
+                         consume(_ID);
+                       end
                    end;
                  arraydef:
                    begin
diff --git a/tests/test/tenum7.pp b/tests/test/tenum7.pp
new file mode 100644
index 0000000000..e27088d9b1
--- /dev/null
+++ b/tests/test/tenum7.pp
@@ -0,0 +1,9 @@
+{ %FAIL }
+program casedottest;
+{$mode ObjFpc}
+type
+  TShape=(shRectangle, shEllipse, shNone);
+var
+  A: TShape.;
+begin
+end.