CREATE OR ALTER PROCEDURE SP_BOOL_TEST (
    I INT)
AS
    DECLARE VARIABLE R_EXISTS BOOLEAN;
BEGIN
  I = 0;
  FOR
      SELECT
          EXISTS(SELECT * FROM RDB$DATABASE) AS R_EXISTS,
          1 AS I
      FROM RDB$DATABASE
      INTO R_EXISTS,
           I
  DO
    SUSPEND;
END