fpc/tests/tbs/tbs0331.pp

{$mode tp}
unit tbs0331;

  interface

    procedure a(s : string);

  implementation

    procedure a;

      begin
      end;

end.