diff --git a/tests/tbf/tb0111.pp b/tests/tbf/tb0111.pp
new file mode 100644
index 0000000000..b97efacad0
--- /dev/null
+++ b/tests/tbf/tb0111.pp
@@ -0,0 +1,13 @@
+{ %VERSION=1.1 }
+{$ifdef fpc}{$mode objfpc}{$endif}
+
+type
+   imyinterface2 = interface
+      procedure p;
+   end;
+
+const
+   iid_imyinterface2 = imyinterface2;
+
+begin
+end.
diff --git a/tests/tbs/tb0371.pp b/tests/tbs/tb0371.pp
index 6701310f7f..7fda5c7c7c 100644
--- a/tests/tbs/tb0371.pp
+++ b/tests/tbs/tb0371.pp
@@ -1,6 +1,6 @@
 { %VERSION=1.1 }
 {$mode delphi}
-unit test;
+unit tb0371;
 
 interface
 
diff --git a/tests/tbs/tb0372.pp b/tests/tbs/tb0372.pp
index d59cdd8c8d..1c1de4da36 100644
--- a/tests/tbs/tb0372.pp
+++ b/tests/tbs/tb0372.pp
@@ -1,4 +1,7 @@
 { %VERSION=1.1 }
+{$ifdef fpc}{$mode objfpc}{$endif}
+{$J+}
+
 type
    imyinterface = interface
       // this program isn't supposed to run so the guid doesn't matter }
@@ -8,10 +11,13 @@ type
 
 const
    iid_imyinterface = imyinterface;
+   iid2 : tguid = '{00000000-0000-0000-0000-000000000000}';
 
 var
    g : tguid;
-
 begin
    g:=imyinterface;
+   g:=iid_imyinterface;
+   g:=iid2;
+   iid2:=iid_imyinterface;
 end.