5 type A is array (1..5) of Integer;
6 f : constant A := (1, 2, 3, 4, 5);
8 i1 : integer renames f(1);
9 i2 : integer renames f(2);
10 i3 : integer renames f(3);
11 i4 : integer renames f(4);
12 i5 : integer renames f(5);
14 procedure Link_Failure;
15 pragma Import (C, Link_Failure);