fpcsrc/tests/tbs/tb0404.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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.