{ Source provided for Free Pascal Bug Report 2678 }
{ Submitted by "darek mazur" on  2003-09-13 }
{ e-mail: madarzoo@o2.pl }
{$H-,I-,C-,D+,L+,M-,P-,Q-,R-,S-,T-,X+,Z1}
{$Y+}
unit tw2678;
{$mode delphi}
interface
 var
  uii : integer;
 function aa(a: string):string;
implementation
 function aa;
begin
end;
end.