TYPE __ghdl_bool_type IS BOOLEAN {FALSE, TRUE};
TYPE __ghdl_integer IS SIGNED (32);

PUBLIC FUNCTION test_arg (v : __ghdl_bool_type) RETURN __ghdl_integer
DECLARE
BEGIN
  IF v THEN
   RETURN __ghdl_integer'[1];
  ELSE
   RETURN __ghdl_integer'[0];
  END IF;
END;