Przeglądaj źródła

Test fix for bug report 21566

git-svn-id: trunk@20636 -
pierre 13 lat temu
rodzic
commit
0c144e8bbc
2 zmienionych plików z 9 dodań i 0 usunięć
  1. 1 0
      .gitattributes
  2. 8 0
      tests/webtbf/tw21566.pp

+ 1 - 0
.gitattributes

@@ -11355,6 +11355,7 @@ tests/webtbf/tw2128.pp svneol=native#text/plain
 tests/webtbf/tw2129.pp svneol=native#text/plain
 tests/webtbf/tw21466.pas svneol=native#text/pascal
 tests/webtbf/tw2154.pp svneol=native#text/plain
+tests/webtbf/tw21566.pp svneol=native#text/pascal
 tests/webtbf/tw2174.pp svneol=native#text/plain
 tests/webtbf/tw2209.pp svneol=native#text/plain
 tests/webtbf/tw2242.pp svneol=native#text/plain

+ 8 - 0
tests/webtbf/tw21566.pp

@@ -0,0 +1,8 @@
+{ %FAIL }
+{ Should not give an internal error anymore }
+{ Bug report submitted by Alexander S. Klenin }
+{ 2012-03-26 }
+
+begin
+  Writeln(1/Abs(1) mod 1);
+end.