#2696

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -1,9 +1,9 @@
 //
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
-//  Machine:  DESKTOP-G8V08V4
-//  DateTime: 23.05.2022 8:03:08
-//  UserName: ?????????
+//  Machine:  DESKTOP-2BJCJ7I
+//  DateTime: 04.09.2022 14:03:46
+//  UserName: ibond
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>
 //

Parsers/PascalABCParserNewSaushkin/ABCPascal.y

@@ -1481,10 +1481,9 @@ simple_type_identifier
     ;
 
 enumeration_id_list
-    : enumeration_id tkComma enumeration_id  
+    : enumeration_id
         { 
 			$$ = new enumerator_list($1 as enumerator, @$);
-			($$ as enumerator_list).Add($3 as enumerator, @$);
         }      
     | enumeration_id_list tkComma enumeration_id
         { 

TestSuite/enum7.pas

@@ -0,0 +1,8 @@
+type 
+  enum1 = (enval1 = 1);
+  enum2 = (enval2);
+
+begin
+  var e := enum1.enval1;
+  assert(integer(e) = 1);
+end.