mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:07:54 +02:00
40 lines
413 B
ObjectPascal
40 lines
413 B
ObjectPascal
{
|
|
This compiles fine with FPC, but not with Bp7 see 2 comments
|
|
}
|
|
|
|
type
|
|
t=object
|
|
s : string; { No ; needed ? }
|
|
procedure p;
|
|
end;
|
|
|
|
t2=object(t)
|
|
procedure p1(p : string);
|
|
end;
|
|
|
|
procedure t2.p1(p : string);
|
|
|
|
begin
|
|
end;
|
|
|
|
procedure t.p;
|
|
|
|
var
|
|
s : longint; { Not allowed with BP7 }
|
|
x : longint;
|
|
|
|
procedure nested;
|
|
|
|
var
|
|
s : longint;
|
|
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|