no message

tests/tbs/tb0437.pp

@@ -0,0 +1,5 @@
+uses
+   ub0437c;
+
+begin
+end.

tests/tbs/ub0437a.pp

@@ -0,0 +1,13 @@
+{ %version=1.1}
+unit ub0437a;
+
+  interface
+
+    type
+      prec = ^trec;
+      trec = record
+      end;
+
+  implementation
+
+end.

tests/tbs/ub0437b.pp

@@ -0,0 +1,14 @@
+{ %version=1.1}
+unit ub0437b;
+
+  interface
+
+    uses
+       ub0437a;
+
+    type
+      prec = ub0437a.prec;
+
+  implementation
+
+end.

tests/tbs/ub0437c.pp

@@ -0,0 +1,20 @@
+{ %version=1.1}
+unit ub0437c;
+
+  interface
+
+    uses
+       ub0437b;
+
+    type
+      prec = ub0437b.prec;
+
+    function f : prec;
+
+  implementation
+
+    function f : prec;
+      begin
+      end;
+
+end.