From ec538658c6e350cdabceb767f122f3b5ca8d59cf Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Thu, 7 Mar 2002 21:40:56 +0000
Subject: [PATCH] * bug #1858 testing

---
 tests/webtbs/tw1858.pp | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 tests/webtbs/tw1858.pp

diff --git a/tests/webtbs/tw1858.pp b/tests/webtbs/tw1858.pp
new file mode 100644
index 0000000000..03a9697b66
--- /dev/null
+++ b/tests/webtbs/tw1858.pp
@@ -0,0 +1,31 @@
+{ %RESULTCODE=1 }
+{ Source provided for Free Pascal Bug Report 1858 }
+{ Submitted by "Mattias Gaertner" on  2002-03-07 }
+{ e-mail: nc-gaertnma@netcologne.de }
+{ expanded for more testing... }
+{ Should be tested on systems which detect reads of nil pointers }
+unit test1;
+
+
+interface
+
+const
+
+  a : char = '#';
+  b = a + 'panic';
+
+  c : set of byte = [0,1,2,3];
+  d = c + [4,5,6];
+  
+implementation
+
+end.
+
+{
+  $Log$
+  Revision 1.1  2002-03-07 21:40:56  carl
+  * bug #1858 testing
+
+}  
+
+