1-- RUN: %llvmgcc -S %s 2procedure Array_Size is 3 subtype S is String (1 .. 2); 4 type R is record 5 A : S; 6 end record; 7 X : R; 8begin 9 null; 10end; 11