diff --git a/tests/tbs/tbs0327.pp b/tests/tbs/tbs0327.pp
index 3387e66d35..d292db5ce0 100644
--- a/tests/tbs/tbs0327.pp
+++ b/tests/tbs/tbs0327.pp
@@ -1,5 +1,5 @@
 {$ifdef fpc}{$mode delphi}{$endif}
-unit tbs0327;
+unit p;
 interface
 
 type
@@ -8,8 +8,14 @@ type
     procedure l(s:string);overload;
   end;
 
+    procedure l2(i:integer);overload;
+    procedure l2(s:string);overload;
+
 implementation
 
+    procedure l3(i:integer);forward;overload;
+    procedure l3(s:string);forward;overload;
+
 procedure tc.l(i:integer);
 begin
 end;
@@ -18,6 +24,22 @@ procedure tc.l(s:string);
 begin
 end;
 
+procedure l2(i:integer);
+begin
+end;
+
+procedure l2(s:string);
+begin
+end;
+
+procedure l3(i:integer);
+begin
+end;
+
+procedure l3(s:string);
+begin
+end;
+
 procedure k(l:longint);overload;
 begin
 end;