aboutsummaryrefslogtreecommitdiff
path: root/test/FrontendAda/debug_var_size.ads
blob: e8863cbddf94d73e049a4da5fbcbcb96be61f0e6 (plain)
1
2
3
4
5
6
7
8
-- 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;