mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-29 12:23:46 +02:00
18 lines
255 B
ObjectPascal
18 lines
255 B
ObjectPascal
type
|
|
G = object
|
|
public
|
|
B:procedure;
|
|
{ the 1.1 compiler parses the next "public" as a procdirective of the preceding procedure }
|
|
public
|
|
constructor init;
|
|
end;
|
|
|
|
constructor G.init;
|
|
begin
|
|
B:=nil;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|