28 lines
514 B
Ada
28 lines
514 B
Ada
|
-- { dg-do compile }
|
||
|
|
-- { dg-options "-gnatws" }
|
||
|
|
|
||
|
|
procedure aggr4 is
|
||
|
|
type Byte is range 0 .. 2**8 - 1;
|
||
|
|
for Byte'Size use 8;
|
||
|
|
|
||
|
|
type Time is array (1 .. 3) of Byte;
|
||
|
|
|
||
|
|
type UTC_Time is record
|
||
|
|
Values : Time;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
type Local_Time is record
|
||
|
|
Values : Time;
|
||
|
|
end record;
|
||
|
|
for Local_Time use record
|
||
|
|
Values at 0 range 1 .. 24;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
LOC : Local_Time;
|
||
|
|
UTC : UTC_Time;
|
||
|
|
|
||
|
|
begin
|
||
|
|
UTC.Values := LOC.Values;
|
||
|
|
UTC := (Values => LOC.Values);
|
||
|
|
end;
|