*** empty log message ***

tests/tbs/tbs0057.pp

@@ -21,6 +21,7 @@ begin
    gd:=detect;
    gm:=$103;
    initgraph(gd,gm,'');
+   setcolor(white);
    line(1,1,100,100);
    {readkey;}delay(1000);
    closegraph;
@@ -29,4 +30,5 @@ begin
    {readkey;}delay(1000);
    closegraph;
 {$endif OK}
+   writeln('OK');
 end.

tests/tf/tf000007.pp

@@ -0,0 +1,20 @@
+{$mode objfpc}
+type
+   tc1 = class
+      l : longint;
+      property p : longint read l;
+   end;
+
+   tc2 = class(tc1)
+      { in Delphi mode }
+      { parameters can have the same name as properties }
+      procedure p1(p : longint);
+   end;
+
+procedure tc2.p1(p : longint);
+
+  begin
+  end;
+
+begin
+end.

tests/ts/ts010030.pp

@@ -0,0 +1,20 @@
+{$mode delphi}
+type
+   tc1 = class
+      l : longint;
+      property p : longint read l;
+   end;
+
+   tc2 = class(tc1)
+      { in Delphi mode }
+      { parameters can have the same name as properties }
+      procedure p1(p : longint);
+   end;
+
+procedure tc2.p1(p : longint);
+
+  begin
+  end;
+
+begin
+end.