2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@11704 -
Jonas Maebe 17 жил өмнө
parent
commit
65f5557fc4

+ 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.
+