@@ -0,0 +1,10 @@
+{ %fail }
+type
+ trec = record l1,l2,l3 : longint end;
+
+const
+ r: trec = (l2:5);
+begin
+end.
peter