llvm-6502/test/FrontendAda/debug_var_size.ads
2010-11-25 21:21:59 +00:00

9 lines
247 B
Ada

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