mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-05 15:38:46 +02:00
10 lines
142 B
ObjectPascal
10 lines
142 B
ObjectPascal
var
|
|
s: string;
|
|
d: Double;
|
|
begin
|
|
d := 5.9999999999999991;
|
|
Str(d:23,s);
|
|
if (pos('9',s)<>0) or (pos('5',s)<>0) then
|
|
halt(1);
|
|
end.
|