fpcsrc/tests/tbs/ub0391.pp


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

{$ifdef fpc}{$mode objfpc}{$endif}
unit ub0391;
interface
type
  tc2 = class
  protected
    procedure p1(s:string);
  end;


implementation

procedure tc2.p1(s:string);
begin
  writeln('string: ',s);
end;


end.