test/FrontendAda/array_size.adb

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