* guid additions

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.

tests/tbs/tb0371.pp

@@ -1,6 +1,6 @@
 { %VERSION=1.1 }
 {$mode delphi}
-unit test;
+unit tb0371;
 
 interface
 

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.