generic with function procedure

[Gilbert Gosseyn <hnptz@yahoo.de>]

Hi,
I would like to code the nelder-mead algorithm in Ada to solve the following problem:
-- minimize f(x)
-- subject to:  g(j,x) <= 0.0 for j in 1..q
--                     h(j,x) = 0.0   for j in q+1..n

My definition for the solving procedure is:

generic
with function f(v : Real_Vector) return Real;
with function g(j : Integer; v : Real_Vector) return Real;
with function h(j : Integer; v : Real_Vector) return Real;
procedure denm (np,q,n,m : Integer);

However when I try to instantiate after having defined f1,g1,h1 like

procedure nm is new denm(f=>f1,g=>g1,h=>h1);

the message is: no visible subprogram matches the specification for "g"
                           no visible subprogram matches the specification for "h"

It therefor seems to be OK for "f=>f1" only.

How to make it working?