From f5f187f3a92b0ce73438878ea07c7449e3ac7814 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 2 Nov 2004 07:43:22 +0000
Subject: [PATCH]   * check for array size

---
 tests/test/tarray5.pp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 tests/test/tarray5.pp

diff --git a/tests/test/tarray5.pp b/tests/test/tarray5.pp
new file mode 100644
index 0000000000..75d87a2347
--- /dev/null
+++ b/tests/test/tarray5.pp
@@ -0,0 +1,10 @@
+{ %fail }
+
+var
+  { This shouldn't be allowed, the number of elements
+    doesn't fit in a aint }
+  mem  : array[0..high(aint)] of byte ;
+
+begin
+end;
+