Gnat/Windows float point Q

[tmoran@acm.org]

What does it mean when float'image(x) = " 47.720649 0.E+05" ?
                                                   ???

Is x a NAN or something?  It causes a Constraint_Error in
the "return x" statement in:

  subtype units is float range 0.0 .. 1.0;
  function clip(x: float) return units is
  begin
    if x < 0.0 then return 0.0;
    elsif x > 1.0 then return 1.0;
    else return x;
    end if;
  end clip;