gcc/testsuite/gnat.dg/array1.adb

   1 --  { dg-do compile }
   2 --  { dg-options "-gnatws" }
   3
   4 package body array1 is
   5
   6   subtype Small is Integer range 1 .. MAX;
   7
   8   type LFT is record
   9     RIC_ID : RIC_TYPE;
  10   end record;
  11
  12   LF : array (RIC_TYPE, Small) of LFT;
  13
  14   procedure Foo (R : RIC_TYPE) is
  15     L : Small;
  16     T : LFT renames LF (R, L);
  17   begin
  18     Start_Timer (T'ADDRESS);
  19   end;
  20
  21   procedure Bar (A : Integer; R : RIC_TYPE) is
  22     S : LFT renames LF (R, A);
  23   begin
  24     null;
  25   end;
  26
  27   procedure Start_Timer (Q : SYSTEM.ADDRESS) is
  28   begin
  29     null;
  30   end;
  31
  32 end array1;