From a8f2c6e5f737baf260ddba20467fe033d753af6b Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Mon, 28 Feb 2005 12:06:39 +0000 Subject: [PATCH] + added --- tests/webtbs/tw3708.pp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 tests/webtbs/tw3708.pp diff --git a/tests/webtbs/tw3708.pp b/tests/webtbs/tw3708.pp new file mode 100644 index 0000000000..de03e9ad48 --- /dev/null +++ b/tests/webtbs/tw3708.pp @@ -0,0 +1,31 @@ +program prec; + +uses SysUtils; + +var + i:Integer; + v: Double; + s: string; + +begin + v := 1.0000000000001; + for i := 1 to 20 do + begin + s := FloatToStrF(v, ffGeneral, i, 0); + WriteLn(i, ' ', s); + if (i < 13) then + begin + if (s <> '1') then + begin + writeln('error'); + halt(1); + end; + end + else + if (s <> '1.0000000000001') then + begin + writeln('error'); + halt(1); + end; + end; +end.