1;
function f ()
  global H = 1;
endfunction
f;
function g ()
  global H;
  H
endfunction
clear H
g
