package body Concat1_Pkg is function Ident (I : Integer) return Integer is begin return I; end; end Concat1_Pkg;