*** empty log message ***

tests/test/readme.txt

@@ -11,3 +11,4 @@ Classes ............... testdom.pp
 Exceptions ............ testexc.pp
                         testexc2.pp
                         testexc3.pp
+Libraries ............. testlib.pp     a very primitive test

tests/test/testlib.pp

@@ -0,0 +1,18 @@
+library bug;
+
+const
+   publicname='TestName';
+   publicindex = 1234;
+
+procedure Test;export;
+
+ begin
+ end;
+
+exports
+  Test name publicname;
+exports
+  Test index publicindex;
+
+begin
+end.