SET TERM ^ ;

create or alter procedure GET_ONE_VAL
returns (
    VAL1 integer)
as
begin
  val1 = 1;
  suspend;
end
^

SET TERM ; ^

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE GET_ONE_VAL TO SYSDBA;

SET TERM ^ ;

create or alter procedure CHECK_ONE_VAL
returns (
    VAL2 integer)
as
declare variable VAL1 integer;
begin
    select
        (select * from get_one_val) as column1
    from rdb$database into :val2;
    suspend;
end
^

SET TERM ; ^

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE CHECK_ONE_VAL TO SYSDBA;