2 -- { dg-options "-gnatws" }
6 subtype Small is Integer range 1 .. MAX;
12 LF : array (RIC_TYPE, Small) of LFT;
14 procedure Foo (R : RIC_TYPE) is
16 T : LFT renames LF (R, L);
18 Start_Timer (T'ADDRESS);
21 procedure Bar (A : Integer; R : RIC_TYPE) is
22 S : LFT renames LF (R, A);
27 procedure Start_Timer (Q : SYSTEM.ADDRESS) is