fpc/ide/text/test2.pas
1999-08-22 22:25:01 +00:00

33 lines
365 B
ObjectPascal

{$L+}
unit Test2;
interface
type
PRecord = ^TRecord;
TRecord = record
Field1: longint;
Next : PRecord;
end;
function IsOdd(X: integer): boolean;
var
TEST2_X : real;
implementation
function IsOdd(X: integer): boolean;
var Z: byte;
begin
Z:=0;
X:=Z*X*Test8087;
IsOdd:=(X mod 2)=1;
end;
procedure static;
begin
end;
END.