1-- RUN: %llvmgcc -S %s 2procedure Array_Constructor is 3 A : array (Integer range <>) of Boolean := (True, False); 4begin 5 null; 6end; 7