Submitted by: @pavel-zotov

Attachments:
test-metadata-extraction-core-5089.zip

Create new database and apply this script:

create or alter procedure sp\_test \(ix int\) returns\(ox int\) as begin end;
commit;

recreate table test\(
    x int
\);
commit;

set term ^;

alter procedure sp\_test\(
    ix type of column test\.x
\) 
returns\(
    ox type of column test\.x
\) as
begin
  /\* foo \*/
end

^
set term ;^
commit; 

===

Then run: ISQL -X this_database.fdb 1>metadata.log

File "metadata.log" will contain following rows:

SET SQL DIALECT 3;

/* CREATE DATABASE '/3333:e30' PAGE_SIZE 8192 DEFAULT CHARACTER SET NONE; */

COMMIT WORK;

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

/* Stored procedures headers */
CREATE OR ALTER PROCEDURE SP_TEST (IX TYPE OF COLUMN TEST.X) ------------------------------------------ [ 1 ]
RETURNS (OX TYPE OF COLUMN TEST.X) --------------------------------------------------------------------------------------- [ 2 ]
AS
BEGIN EXIT; END ^

SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

/* Table: TEST, Owner: SYSDBA */
CREATE TABLE TEST (X INTEGER);

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

/* Stored procedures bodies */

ALTER PROCEDURE SP_TEST (IX TYPE OF COLUMN TEST.X)
RETURNS (OX TYPE OF COLUMN TEST.X)
AS
begin
/* foo */
end ^

SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

This script will not be compiled because of invalid references marked as [ 1 ] and [ 2 ].

PS. Found while preparing test for CORE2792; I'm not sure that this issue should be added there thus created new ticket.

Commits: 44cf5c7 27dc928 624d338 FirebirdSQL/fbt-repository@8e2a262 FirebirdSQL/fbt-repository@21f9fd4 FirebirdSQL/fbt-repository@f133f78