浏览代码

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

git-svn-id: trunk@11704 -
Jonas Maebe 17 年之前
父节点
当前提交
65f5557fc4
共有 2 个文件被更改,包括 11 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 10 0
      tests/webtbs/tw12051.pp

+ 1 - 0
.gitattributes

@@ -8526,6 +8526,7 @@ tests/webtbs/tw1203.pp svneol=native#text/plain
 tests/webtbs/tw1204.pp svneol=native#text/plain
 tests/webtbs/tw1204.pp svneol=native#text/plain
 tests/webtbs/tw12050a.pp svneol=native#text/plain
 tests/webtbs/tw12050a.pp svneol=native#text/plain
 tests/webtbs/tw12050b.pp svneol=native#text/plain
 tests/webtbs/tw12050b.pp svneol=native#text/plain
+tests/webtbs/tw12051.pp svneol=native#text/plain
 tests/webtbs/tw1207.pp svneol=native#text/plain
 tests/webtbs/tw1207.pp svneol=native#text/plain
 tests/webtbs/tw1222.pp svneol=native#text/plain
 tests/webtbs/tw1222.pp svneol=native#text/plain
 tests/webtbs/tw1223.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.
+