Added/Updated tests\bugs\gh_8063_test.py: Checked on 6.0.0.305 73551f3; 5.0.1.1371 48915d1 (intermediate snapshots).

tests/bugs/gh_8063_test.py

@@ -0,0 +1,75 @@
+#coding:utf-8
+
+"""
+ID:          issue-8063
+ISSUE:       https://github.com/FirebirdSQL/firebird/issues/8063
+TITLE:       (var)char variables/parameters assignments fail in Stored Procedures with subroutines
+DESCRIPTION:
+NOTES:
+    [02.04.2024] pzotov
+    Test code has been changed to be minimal reproducable.
+
+    Confirmed bug on 6.0.0.305 8a4f691; 5.0.1.1371 295758d
+    Checked on 6.0.0.305 73551f3; 5.0.1.1371 48915d1 (intermediate snapshots).
+"""
+
+import pytest
+from firebird.qa import *
+
+db = db_factory()
+
+test_script = """
+    set bail on;
+    set list on;
+    set term ^;
+    create or alter procedure sp_test_1 returns (
+        o_char varchar(10)
+    ) sql security invoker
+    as
+        declare outer_v varchar(10) character set utf8; -- <<< [!] <<< charset *utf8* must be specified here to reproduce
+
+        declare function f_inner returns int as
+        begin
+            outer_v = current_user;
+            return 1;
+        end
+
+    begin
+        outer_v = current_user;
+        o_char = outer_v;
+        suspend;
+    end
+    ^
+
+    create or alter procedure sp_test_2 returns (
+        o_char varchar(10)
+    ) sql security invoker
+    as
+        declare outer_v varchar(10) character set utf8;
+    begin
+        outer_v = current_user;
+        o_char = outer_v;
+        suspend;
+    end
+    ^
+    set term ^;
+    commit;
+
+    select o_char as sp_1 from sp_test_1;
+
+    select o_char as sp_2 from sp_test_2;
+"""
+
+act = isql_act('db', test_script, substitutions=[ ('[ \\t]+', ' ') ])
+
+@pytest.mark.version('>=5.0.1')
+def test_1(act: Action):
+
+    expected_stdout = f"""
+        SP_1 {act.db.user}
+        SP_2 {act.db.user}
+    """
+    act.expected_stdout = expected_stdout
+    act.execute(combine_output = True)
+    assert act.clean_stdout == act.clean_expected_stdout
+