type __ghdl_integer is signed (32);

public function test_arg (v : __ghdl_integer) return __ghdl_integer
declare
begin
  return v;
end;