1-- RUN: %llvmgcc -S %s
2procedure Array_Ref is
3 type A is array (Natural range <>, Natural range <>) of Boolean;
4 type A_Access is access A;
5 function Get (X : A_Access) return Boolean is
6 begin
7 return X (0, 0);
8 end;
9begin
10 null;
11end;
12