diff --git a/bugs/bug0310.pp b/bugs/bug0310.pp
new file mode 100644
index 0000000000..6d9d00ebcf
--- /dev/null
+++ b/bugs/bug0310.pp
@@ -0,0 +1,10 @@
+procedure p(s:string);
+var
+  s : string;
+begin
+  writeln(s);
+end;
+
+begin
+  p('test');
+end.
diff --git a/bugs/readme.txt b/bugs/readme.txt
index 067b64fae6..dd28408a4a 100644
--- a/bugs/readme.txt
+++ b/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
\ No newline at end of file