{

ExecEvalSubroutineparamfunc;/* add-on evaluation subroutine */

void*paramarg;/* private data for same */

void*paramarg2;/* more private data for same */

intparamid;/* numeric ID for parameter */

Oidparamtype;/* OID of parameter's datatype */

}cparam;

do $$ declare a int[];

begin a := array_agg(x) from (values(1),(2),(3)) v(x); raise notice 'a = %', a; end$$;

NOTICE: a = {1,2,3}

do $$ declare a int[] := array[1,2,3];

begin

-- test scenarios for optimization of updates of R/W expanded objects

a := array_append(a, 42); -- optimizable using "transfer" method

a := a || a[3]; -- optimizable using "inplace" method

a := a || a; -- not optimizable

raise notice 'a = %', a;

end$$;

NOTICE: a = {1,2,3,42,3,1,2,3,42,3}

create temp table onecol as select array[1,2] as f1;

do $$ declare a int[];

begin a := f1 from onecol; raise notice 'a = %', a; end$$;