mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 17:28:05 +02:00
18 lines
349 B
ObjectPascal
18 lines
349 B
ObjectPascal
program bug2131;
|
|
|
|
var
|
|
TestStr : string;
|
|
correct : string;
|
|
begin
|
|
if sizeof(extended) > sizeof(double) then
|
|
correct := ' 1.8E+0012'
|
|
else
|
|
correct := ' 1.8E+012';
|
|
Str (extended(1.789e12):1, TestStr);
|
|
if (teststr <> correct) then
|
|
begin
|
|
writeln('error, got "',teststr,'" expected "',correct,'"');
|
|
halt(1);
|
|
end
|
|
end.
|