*** empty log message ***

tests/test/readme.txt

@@ -21,3 +21,6 @@ input/output .......... inoutres.pp    tests inoutres values of invalid
                                        operations
 Units ................. testu1.pp      tests init. & finalization and halt
                         testu2.pp      in finalization
+                        testu3.pp      a type redefining problem
+                        testu4.pp
+                        testu5.pp

tests/test/testu3.pp

@@ -0,0 +1,11 @@
+unit testu3;
+
+  interface
+
+    type
+       tr = record
+       end;
+
+  implementation
+
+end.

tests/test/testu4.pp

@@ -0,0 +1,13 @@
+unit testu4;
+
+  interface
+
+    uses
+       testu3;
+
+    type
+       tr = testu3.tr;
+
+  implementation
+
+end.

tests/test/testu5.pp

@@ -0,0 +1,13 @@
+unit testu5;
+
+  interface
+
+    uses
+       testu4;
+
+    type
+       pr = ^tr;
+
+  implementation
+
+end.