mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 01:09:35 +02:00
25 lines
450 B
ObjectPascal
25 lines
450 B
ObjectPascal
{ %OPT=-CE }
|
|
{ %result=217 }
|
|
|
|
{ Source provided for Free Pascal Bug Report 4100 }
|
|
{ Submitted by "Markus Roberts" on 2005-06-20 }
|
|
{ e-mail: Markus@reality.com }
|
|
{$ifdef unix}
|
|
{$linklib c}
|
|
{$endif}
|
|
|
|
uses SysUtils;
|
|
var
|
|
X,Y,Z : Extended;
|
|
I : integer;
|
|
begin
|
|
X := 0.0;
|
|
Y := 1.0;
|
|
Z := Y/X;
|
|
I := 7;
|
|
writeln('test');
|
|
writeln(StrToFloat('1e7'));
|
|
writeln(Z);
|
|
end.
|
|
|