1 2 3 4 5
package body Concat1_Pkg is function Ident (I : Integer) return Integer is begin return I; end; end Concat1_Pkg;