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