mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-17 02:21:51 +01:00
14 lines
217 B
ObjectPascal
14 lines
217 B
ObjectPascal
program bug2131;
|
|
|
|
var
|
|
TestStr : string;
|
|
begin
|
|
Str (1.789e12:1, TestStr);
|
|
if (teststr <> ' 1.8E+0012') then
|
|
begin
|
|
writeln('error, got "',teststr,'" expected " 1.8E+0012"');
|
|
halt(1);
|
|
end
|
|
end.
|
|
|