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