* inline with type in implicit used unit

tests/test/tinline4.pp

@@ -0,0 +1,16 @@
+unit tinline4;
+
+interface
+
+uses uinline4b;
+
+procedure acall(a,b: longint); inline;
+
+implementation
+
+procedure acall(a,b: longint); inline;
+begin
+  libbase:=nil;
+end;
+
+end.

tests/test/uinline4a.pp

@@ -0,0 +1,10 @@
+unit uinline4a;
+
+interface
+
+type
+  aptrtype = pointer;
+
+implementation
+
+end.

tests/test/uinline4b.pp

@@ -0,0 +1,12 @@
+unit uinline4b;
+
+interface
+
+uses uinline4a;
+
+var
+  libbase : aptrtype;
+
+implementation
+
+end.