freepascal.compiler/tests/tbs/tb0279.pp

{ Old file: tbs0331.pp }
{  }

{$mode tp}
unit tb0279;

  interface

    procedure a(s : string);

  implementation

    procedure a;

      begin
      end;

end.