type __ghdl_int is signed (32);

public function vla (a : __ghdl_int) return __ghdl_int
declare
  local var b : __ghdl_int;
begin
  b := a;
  return b;
end;