*** empty log message ***

bugs/bug0244.pp

@@ -0,0 +1,24 @@
+Unit bug0244;
+
+{test also with -So !!!}
+
+Interface
+
+Procedure t(a,b: longint);
+
+Implementation
+
+Procedure t(a,b: longint);
+begin
+end;
+
+Procedure t2;
+
+  Procedure t(l: Longint);
+  Begin
+  End;
+
+Begin
+End;
+
+End.

bugs/readme.txt

@@ -330,4 +330,5 @@ bug0232.pp   const. procedure variables need a special syntax
 bug0237.pp   Can't have sub procedures with names defined in interface
 bug0242.pp   Crash when passing a procedure to formal parameter
 bug0243.pp   Arguments of functions are computed from right to left this
-             is against pascal convention
+             is against pascal convention
+bug0244.pp   nested procedures can't have same name as global ones