From 358570d0ea71ccd7cd4ec64cd887d254d345f622 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 26 Oct 2000 23:25:58 +0000
Subject: [PATCH]   * crash with Date in type def

---
 tests/tbs/tbs0356.pp | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 tests/tbs/tbs0356.pp

diff --git a/tests/tbs/tbs0356.pp b/tests/tbs/tbs0356.pp
new file mode 100644
index 0000000000..99d694c5fc
--- /dev/null
+++ b/tests/tbs/tbs0356.pp
@@ -0,0 +1,11 @@
+unit tbs0356;
+interface
+uses sysutils;
+type
+
+   Foo =
+        packed record
+                Dates : array[1..11] of Date;
+        end;
+implementation	
+end.