unit uw26760;

{$mode objfpc}{$H+}

interface

procedure Test;

implementation

procedure Test;
begin
  Writeln('test'); a
end;

end.