tests/webtbf/tw3738.pp


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

{ %fail }

program fjf775a;

type
  a = object
    f: Integer
  end;

  b = object (a)
    procedure p;
  end;

procedure b.p;
begin
  WriteLn (inherited f)  { WRONG }
end;

begin
end.