+ 310

bugs/bug0310.pp

@@ -0,0 +1,10 @@
+procedure p(s:string);
+var
+  s : string;
+begin
+  writeln(s);
+end;
+
+begin
+  p('test');
+end.

bugs/readme.txt

@@ -399,3 +399,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
 bug0308a.pp  problem with objects that don't have VMT nor variable fields
+bug0310.pp   local and para dup are not detected