xref: /dports/cad/ghdl/ghdl-1.0.0/src/ortho/oread/tests/ra1.on

TYPE int32 IS SIGNED (32);
TYPE char IS UNSIGNED(8);

PUBLIC FUNCTION add (a : char; b : char) RETURN int32
DECLARE
BEGIN
  RETURN int32'conv(a) +# int32'conv(b);
END;