test/FrontendAda/Support/var_offset.ads


1
2
3
4
5
6
7
8
9

package Var_Offset is
   pragma Elaborate_Body;
   type T (L : Natural) is record
      Var_Len   : String (1 .. L);
      Space     : Integer;
      Small     : Character;
      Bad_Field : Character;
   end record;
end;