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;