mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
17 lines
310 B
ObjectPascal
17 lines
310 B
ObjectPascal
{ 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.
|