mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 01:27:55 +02:00
20 lines
254 B
ObjectPascal
20 lines
254 B
ObjectPascal
{
|
|
This compiles fine with FPC, but not with Bp7 see 2 comments
|
|
}
|
|
|
|
type
|
|
t=object
|
|
s : string { No ; needed ? }
|
|
procedure p;
|
|
end;
|
|
|
|
procedure t.p;
|
|
var
|
|
s : longint; { Not allowed with BP7 }
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|