RISC-V: Do not inline when callee is versioned but caller is not
[official-gcc.git] / gcc / testsuite / gnat.dg / aggr4.adb
blob3604967c201df4551b2a10aacc49ad2e0b99353e
1 -- { dg-do compile }
2 -- { dg-options "-gnatws" }
4 procedure aggr4 is
5 type Byte is range 0 .. 2**8 - 1;
6 for Byte'Size use 8;
8 type Time is array (1 .. 3) of Byte;
10 type UTC_Time is record
11 Values : Time;
12 end record;
14 type Local_Time is record
15 Values : Time;
16 end record;
17 for Local_Time use record
18 Values at 0 range 1 .. 24;
19 end record;
21 LOC : Local_Time;
22 UTC : UTC_Time;
24 begin
25 UTC.Values := LOC.Values;
26 UTC := (Values => LOC.Values);
27 end;