blob: de64b45a1e3e630a92f932e934dfab0393144547 [file] [log] [blame]
-- RUN: %llvmgcc -c %s
procedure Array_Constructor is
A : array (Integer range <>) of Boolean := (True, False);
begin
null;
end;