1package Asan1_Pkg is
2   subtype E is Integer;
3   type T is array (1..32) of E;
4
5   function N return T;
6   function C (P : T) return E;
7
8   V : constant E := C (N);
9end Asan1_Pkg;
10