test/FrontendAda/array_ref.adb


1
2
3
4
5
6
7
8
9
10
11

-- RUN: %llvmgcc -c %s -o /dev/null
procedure Array_Ref is
   type A is array (Natural range <>, Natural range <>) of Boolean;
   type A_Access is access A;
   function Get (X : A_Access) return Boolean is
   begin
      return X (0, 0);
   end;
begin
   null;
end;