mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 23:19:29 +02:00
17 lines
254 B
ObjectPascal
17 lines
254 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.
|