1package Pack1 is
2   package Nested is
3      type Rec_Typ is record
4         null;
5      end record;
6   end Nested;
7end Pack1;
8