RosettaCodeData/Task/Determine-if-a-string-is-numeric/Ada/determine-if-a-string-is-numeric-2.ada

package body Numeric_Tests is
   function Is_Numeric (Item : in String) return Boolean is
      Dummy : Float;
   begin
      Dummy := Float'Value (Item);
      return True;
   exception
      when others =>
         return False;
   end Is_Numeric;
end Numeric_Tests;