package Pack1 is
   package Nested is
      type Rec_Typ is record
         null;
      end record;
   end Nested;
end Pack1;