set term ! ;
create or alter package some$pkg
as
begin
  function some$func returns integer deterministic; 
end!
recreate package body some$pkg
as
begin
  function some$func returns integer deterministic
  as
  begin
    return(1);
  end
end!
set term ; !
set term ! ;
create or alter procedure test$proc ()
as
declare variable p integer;
begin
  p = some$package.func();
end!
set term ; !