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