Subversion Repositories openrisc

--  { dg-do compile }

--  { dg-do compile }

with Unchecked_Conversion;

with Unchecked_Conversion;

procedure warn2 is

procedure warn2 is

   type R1 is record X : Integer; end record;

   type R1 is record X : Integer; end record;

   type R2 is record X, Y : Integer; end record;

   type R2 is record X, Y : Integer; end record;

   pragma Warnings

   pragma Warnings

     (Off, "types for unchecked conversion have different sizes");

     (Off, "types for unchecked conversion have different sizes");

   function F is new Unchecked_Conversion (R1, R2);

   function F is new Unchecked_Conversion (R1, R2);

   pragma Warnings

   pragma Warnings

     (On, "types for unchecked conversion have different sizes");

     (On, "types for unchecked conversion have different sizes");

begin

begin

   null;

   null;

end warn2;

end warn2;