+ bug0311

bugs/bug0311.pp

@@ -0,0 +1,11 @@
+type
+  tsplitextended = record
+    case byte of
+      0: (a: array[0..9] of byte);
+      { the following "a" should give a duplicate identifier errorÊ}
+      1: (a: array[0..4] of word);
+      2: (a: array[0..1] of cardinal; w: word);
+    end;
+
+begin
+end.

bugs/readme.txt

@@ -400,3 +400,4 @@ bug0293.pp   no error with variable name = type name
 bug0299.pp   passing Array[0..1] of char by value to proc leads to problems
 bug0305.pp   Finally is not handled correctly after inputting 0
 bug0310.pp   local and para dup are not detected
+bug0311.pp   No dup id checking in variant records