test/FrontendAda/array_ref.adb

   1 -- RUN: %llvmgcc -c %s
   2 procedure 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;
   9 begin
  10    null;
  11 end;