* crash with Date in type def

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.