fpcsrc/tests/tbs/tb0279.pp


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

{ Old file: tbs0331.pp }
{  }

{$mode tp}
unit tb0279;

  interface

    procedure a(s : string);

  implementation

    procedure a;

      begin
      end;

end.