1-- RUN: %llvmgcc -S -g %s 2package 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; 8end; 9
1-- RUN: %llvmgcc -S -g %s 2package 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; 8end; 9