DO
$all$
declare 
	a_sql text[];
BEGIN
	create type foo_type as (bar text);

	create or replace function get_bar() returns foo_type
	as $$
	begin  
	  return (null)::foo_type;
	end $$ language plpgsql;

	create or replace function get_bar2() returns foo_type
	as $$
	declare
	  v_bar foo_type;
	begin    
	  v_bar := null::foo_type;
	  return v_bar;
	end $$ language plpgsql;

	a_sql[1]:= $$ -- 1
	declare 
	  v_foo record;  
	begin    
	  v_foo := null::foo_type;
	  perform v_foo is null;
	end; $$;

	a_sql[2]:= $$ -- 2
	declare 
	  v_foo record;
	begin  
	  v_foo := row(null)::foo_type;

	  perform v_foo is null;
	end; $$;

	a_sql[3]:= $$ -- 3
	declare 
	  v_foo record;
	begin  
	  select null into v_foo where false;  

	  perform v_foo is null; 
	end; $$;

	a_sql[4]:= $$ -- 4
	declare 
	  v_foo foo_type;
	begin  
	  v_foo := null::foo_type;

	  perform v_foo is null; 
	end; $$;

	a_sql[5]:= $$ -- 5
	declare 
	  v_foo record;
	  v_bar foo_type;
	begin  
	  v_bar := null::foo_type;
	  v_foo := v_bar;

	  perform v_foo is null; 
	end; $$;

	a_sql[6]:= $$ -- 6
	declare 
	  v_foo record;  
	begin    
	  v_foo := get_bar();
	  perform v_foo is null;
	end; $$;

	a_sql[9]:= $$ -- 6'1
	begin    
	  perform get_bar() is null; 
	end; $$;

	a_sql[10]:= $$ -- 6'2
	declare 
	  v_foo foo_type;  
	begin    
	  v_foo := get_bar();
	  perform v_foo is null;
	end; $$;

	a_sql[7]:= $$ -- 7
	declare 
	  v_foo record;  
	begin    
	  v_foo := get_bar2();

	  perform v_foo is null; 
	end; $$;

	a_sql[8]:= $$ -- 7'1
	begin    
	  perform get_bar2() is null; 
	end; $$;

	for i in 1..cardinality(a_sql) loop
		BEGIN
			EXECUTE CONCAT ('DO $$',a_sql[i],'$$;');
			RAISE NOTICE 'i %,---- %',i,'Ok!';
		EXCEPTION WHEN OTHERS THEN
			RAISE NOTICE 'i %,sql %,Errmsg %',i,a_sql[i],SQLERRM;
		
		END;
		
	end loop;

	raise 'rollback test';

END;
$all$

NOTICE:  i 1,sql  -- 1
	declare 
	  v_foo record;  
	begin    
	  v_foo := null::foo_type;
	  perform v_foo is null;
	end; ,Errmsg record "v_foo" is not assigned yet
NOTICE:  i 2,---- Ok!
NOTICE:  i 3,---- Ok!
NOTICE:  i 4,---- Ok!
NOTICE:  i 5,---- Ok!
NOTICE:  i 6,sql  -- 6
	declare 
	  v_foo record;  
	begin    
	  v_foo := get_bar();
	  perform v_foo is null;
	end; ,Errmsg record "v_foo" is not assigned yet
NOTICE:  i 7,---- Ok!
NOTICE:  i 8,---- Ok!
NOTICE:  i 9,---- Ok!
NOTICE:  i 10,---- Ok!


ERROR:  rollback test
КОНТЕКСТ:  PL/pgSQL function inline_code_block line 114 at RAISE

********** Ошибка **********

ERROR: rollback test
SQL-состояние: P0001
Контекст: PL/pgSQL function inline_code_block line 114 at RAISE