1package Var_Offset is 2 pragma Elaborate_Body; 3 type T (L : Natural) is record 4 Var_Len : String (1 .. L); 5 Space : Integer; 6 Small : Character; 7 Bad_Field : Character; 8 end record; 9end; 10