* unit needed for ts010018

tests/ts/th010018.pp

@@ -0,0 +1,14 @@
+unit th010018;
+
+interface
+type
+  rec=object
+    i : longint;
+    nrs : (one,two,three);
+  end;
+var
+  brec : rec;
+
+implementation
+
+end.