diff options
| author | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-26 21:35:50 +0000 |
|---|---|---|
| committer | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-26 21:35:50 +0000 |
| commit | 708c1229dab4b3d7d0e97b03f9e78f5f2de528c0 (patch) | |
| tree | a2342cc1c282f58f2998c71122a2a3bc8bbe48a4 /gcc/ada/i-cobol.adb | |
| parent | 9892149ef338de0566bd41c8a356d448018f9696 (diff) | |
| download | gcc-708c1229dab4b3d7d0e97b03f9e78f5f2de528c0.tar.gz | |
2005-01-26 Laurent GUERBY <laurent@guerby.net>
PR ada/19414
* i-cobol.adb (Valid_Numeric): Handle zero length case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@94287 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/i-cobol.adb')
| -rw-r--r-- | gcc/ada/i-cobol.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/i-cobol.adb b/gcc/ada/i-cobol.adb index 7dc1f851bed..38de23d8119 100644 --- a/gcc/ada/i-cobol.adb +++ b/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. |