summaryrefslogtreecommitdiff
path: root/tests/webtbf/tw21566.pp
diff options
context:
space:
mode:
authorpierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2>2012-03-26 15:50:09 +0000
committerpierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2>2012-03-26 15:50:09 +0000
commitd87ceb548d5e9cc08be9a7b9a9bfef6d0acf8ad5 (patch)
treeaed2dc7e05cad444d8a5ed02bcde7f91a748c3bf /tests/webtbf/tw21566.pp
parent7f420bb67c940cc2fc3dda3b7f4b27988652b833 (diff)
downloadfpc-d87ceb548d5e9cc08be9a7b9a9bfef6d0acf8ad5.tar.gz
Test fix for bug report 21566
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20636 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf/tw21566.pp')
-rw-r--r--tests/webtbf/tw21566.pp8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/webtbf/tw21566.pp b/tests/webtbf/tw21566.pp
new file mode 100644
index 0000000000..66307269b1
--- /dev/null
+++ b/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.