diff --git a/tests/tbs/tbs0319.pp b/tests/tbs/tbs0319.pp
index c425a02a08..a70b66a7ac 100644
--- a/tests/tbs/tbs0319.pp
+++ b/tests/tbs/tbs0319.pp
@@ -14,6 +14,26 @@ type
     procedure p2;
   end;
 
+ o = class
+       nonsense  :string;
+       procedure flup(nonsense:string);
+     end;
+
+ o2 = class
+       nonsense  :longint;
+       procedure flup(nonsense:longint);
+     end;
+
+procedure o.flup(nonsense:string);
+begin
+end;
+
+
+procedure o2.flup(nonsense:longint);
+begin
+end;
+
+
 procedure cl.p1;
 var
   k : longint;