RosettaCodeData/Task/Call-a-function/Ada/call-a-function-5.ada

Positional := H(A, F'Access);
Named      := H(Int => A, Fun => F'Access);
Mixed      := H(A, Fun=>F'Access);