test/FrontendAda/debug_var_size.ads

   1 -- RUN: %llvmgcc -S -g %s
   2 package Debug_Var_Size is
   3    subtype Length_Type is Positive range 1 .. 64;
   4    type T (Length : Length_Type := 1) is record
   5       Varying_Length : String (1 .. Length);
   6       Fixed_Length   : Boolean;
   7    end record;
   8 end;