1package Opt48_Pkg2 is
2
3   pragma Pure;
4
5   type Rec (L : Natural) is record
6      S : String (1 .. L);
7   end record;
8
9   function F return Rec;
10
11end Opt48_Pkg2;
12