Browse Source

+ add test for Mantis #31521 which is already fixed, though I don't know which revision did it...

git-svn-id: trunk@35656 -
svenbarth 8 years ago
parent
commit
34327000d8
2 changed files with 16 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 15 0
      tests/webtbs/tw31521.pp

+ 1 - 0
.gitattributes

@@ -15410,6 +15410,7 @@ tests/webtbs/tw31421a.pp svneol=native#text/plain
 tests/webtbs/tw3143.pp svneol=native#text/plain
 tests/webtbs/tw31431.pp svneol=native#text/pascal
 tests/webtbs/tw3144.pp svneol=native#text/plain
+tests/webtbs/tw31521.pp svneol=native#text/pascal
 tests/webtbs/tw3157.pp svneol=native#text/plain
 tests/webtbs/tw31596.pp svneol=native#text/pascal
 tests/webtbs/tw3160a.pp svneol=native#text/plain

+ 15 - 0
tests/webtbs/tw31521.pp

@@ -0,0 +1,15 @@
+program tw31521;
+
+{$mode delphi}
+
+uses SysUtils;
+
+var
+  X: Int64;
+begin
+  if X.MaxValue <> High(X) then
+    Halt(1);
+  {Writeln(X.MaxValue.ToString);
+  Writeln(IntToStr(High(X)));
+  Readln;}
+end.