36 lines
944 B
Ada
36 lines
944 B
Ada
-- { dg-do compile }
|
|
|
|
procedure Unchecked_Union2 is
|
|
type small_array is array (0 .. 2) of Integer;
|
|
type big_array is array (0 .. 3) of Integer;
|
|
|
|
type small_record is record
|
|
field1 : aliased Integer := 0;
|
|
field2 : aliased small_array := (0, 0, 0);
|
|
end record;
|
|
|
|
type big_record is record
|
|
field1 : aliased Integer := 0;
|
|
field2 : aliased big_array := (0, 0, 0, 0);
|
|
end record;
|
|
|
|
type myUnion (discr : Integer := 0) is record
|
|
case discr is
|
|
when 0 =>
|
|
record1 : aliased small_record;
|
|
when others =>
|
|
record2 : aliased big_record;
|
|
end case;
|
|
end record;
|
|
|
|
type UU_myUnion3 (discr : Integer := 0) is new myUnion (discr); -- Test
|
|
pragma Unchecked_Union (UU_myUnion3);
|
|
pragma Convention (C, UU_myUnion3);
|
|
|
|
procedure Convert (A : in UU_myUnion3; B : out UU_myUnion3);
|
|
pragma Import (C, Convert);
|
|
|
|
begin
|
|
null;
|
|
end Unchecked_Union2;
|