create database 'localhost:r:\ERR.fdb'
user "SYSDBA" password 'masterkey'
page_size 4096
default character set win1251;

SET TERM ^ ;

CREATE TABLE CA (
F1 DATE,
F2 INTEGER
)^

INSERT INTO CA (F1, F2)
VALUES ('2021-01-01', 3)^
INSERT INTO CA (F1, F2)
VALUES ('2021-01-02', 3)^
INSERT INTO CA (F1, F2)
VALUES ('2021-01-02', 4)^
INSERT INTO CA (F1, F2)
VALUES ('2021-01-02', 3)^

COMMIT WORK^

create or alter procedure GT (
PRIVILEGY integer)
returns (
RESULT integer)
as
begin
result=0;
suspend;
end^

CREATE OR ALTER VIEW PSA(
RESULT)
AS
select (select result from gT(36)) from RDB$DATABASE^

CREATE OR ALTER VIEW VCA(
F1,
F2)
AS
select c.* from PSA PCA
inner join ca c on pca.result=0
where pca.result=0^

execute block returns (aid integer) as
declare da scroll cursor for (select ca.id from
(select distinct sacc.f2 id from
vca sacc
where 1=1 and f1 between '01.01.2021' and '02.01.2021') ca

order by 1);
begin
open da;
fetch first from da into :aid; --crash
suspend;
end^

Server Version Info

Server Version: WI-V4.0.1.2623 Firebird 4.0
Server Implementation: Firebird/Windows/AMD/Intel/x64
Service Version: 2