aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/array_ref.adb
blob: 9577e21ad70f759224758ef2d1360467228dab7e (plain)
1
2
3
4
5
6
7
8
9
10
11
-- RUN: %llvmgcc -c %s
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;