فهرست منبع

Merged revisions 11704 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r11704 | jonas | 2008-09-04 19:48:25 +0100 (Thu, 04 Sep 2008) | 2 lines

+ test for mantis #12051 (already works correctly in 2.3.1)

........

git-svn-id: branches/fixes_2_2@11706 -

Jonas Maebe 17 سال پیش
والد
کامیت
b79b484226
2فایلهای تغییر یافته به همراه11 افزوده شده و 0 حذف شده
  1. 1 0
      .gitattributes
  2. 10 0
      tests/webtbs/tw12051.pp

+ 1 - 0
.gitattributes

@@ -8053,6 +8053,7 @@ tests/webtbs/tw11619.pp svneol=native#text/plain
 tests/webtbs/tw1181.pp svneol=native#text/plain
 tests/webtbs/tw1203.pp svneol=native#text/plain
 tests/webtbs/tw1204.pp svneol=native#text/plain
+tests/webtbs/tw12051.pp svneol=native#text/plain
 tests/webtbs/tw1207.pp svneol=native#text/plain
 tests/webtbs/tw1222.pp svneol=native#text/plain
 tests/webtbs/tw1223.pp svneol=native#text/plain

+ 10 - 0
tests/webtbs/tw12051.pp

@@ -0,0 +1,10 @@
+program doubleconv;
+var
+ s: string;
+begin
+ str(double(10000000000000000000),s);
+ writeln(s);
+ if (pos('-',s)<>0) then
+   halt(1);
+end.
+