Browse Source

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

git-svn-id: trunk@11704 -
Jonas Maebe 17 years ago
parent
commit
65f5557fc4
2 changed files with 11 additions and 0 deletions
  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/tw12050a.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/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.
+