re PR ada/19414 (ACATS cxb4003 - valgrind detects wrong code (invalid read))

2005-01-26  Laurent GUERBY <laurent@guerby.net>

	PR ada/19414
	* i-cobol.adb (Valid_Numeric): Handle zero length case.

From-SVN: r94287

gcc/ada/ChangeLog

+2005-01-26  Laurent GUERBY <laurent@guerby.net>
+
+	PR ada/19414
+	* i-cobol.adb (Valid_Numeric): Handle zero length case.
+	
 2005-01-20  Richard Henderson  <rth@redhat.com>
 
 	* Makefile.in (alpha-linux, LIBGNAT_TARGET_PAIRS): Use

gcc/ada/i-cobol.adb

@@ -632,6 +632,10 @@ package body Interfaces.COBOL is
       return   Boolean
    is
    begin
+      if Item'Length = 0 then
+         return False;
+      end if;
+
       --  All character positions except first and last must be Digits.
       --  This is true for all the formats.