gcc/testsuite/gnat.dg/aggr4.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

--  { 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;