Overloading procedures with Float and Long_Float types

["Luke A. Guest" <laguest@n_o_p_o_r_k_a_n_d_h_a_m.abyss2.demon.co.uk>]

Hi,

Is there a safe way to do this? I'm playing with the adaopengl bindings
and have created the following:

subtype GLfloat is Float;
subtype GLdouble is Standard.Long_Float;

procedure Vertex(X, Y, Z : in GLdouble);
procedure Vertex(X, Y, Z : in GLfloat);

But the compiler (GNAT - Gentoo's 5.02w version) throws up ambiguity
problems.

Is there a nice way to have these two procedures co-exist without having to
rename them? I have currently renamed them, but this does defeat the whole
purpose of this experiment.

Thanks,
Luke.