testsuite/gna/bug092/t.vhdl


1
2
3
4
5
6
7

package t is
  type str_acc is access string;

  function my_alloc (v : natural) return str_acc;
  attribute foreign of my_alloc : function is "VHPIDIRECT";
end t;