diff options
| author | Victor Leikehman <lei@il.ibm.com> | 2004-08-05 08:37:42 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2004-08-05 08:37:42 +0000 |
| commit | 943bf8b5136c2d756f86a84271bbcc97b0b0bedc (patch) | |
| tree | a23b397075a2c70697fdded6abc2507ed87110c1 /libgfortran | |
| parent | ea5f7a19924085268110c3f0bfa01da3456b4e85 (diff) | |
| download | gcc-943bf8b5136c2d756f86a84271bbcc97b0b0bedc.zip gcc-943bf8b5136c2d756f86a84271bbcc97b0b0bedc.tar.gz gcc-943bf8b5136c2d756f86a84271bbcc97b0b0bedc.tar.bz2 | |
Commit for Victor Leikehman <lei@il.ibm.com>
PR libgfortran/16704
* io/read.c (read_radix): Understand letters f and F as hex digits.
From-SVN: r85596
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/read.c | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3aaf82f..4a06ac5 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2004-08-05 Victor Leikehman <lei@il.ibm.com> + + PR libgfortran/16704 + * io/read.c (read_radix): Understand letters f and F as hex digits. + 2004-08-04 Victor Leikehman <lei@il.ibm.com> * libgfortran.h (array_t, size0) New declarations. diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index 3ce9f1d..260a3dc 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -526,6 +526,7 @@ read_radix (fnode * f, char *dest, int length, int radix) case 'c': case 'd': case 'e': + case 'f': c = c - 'a' + '9' + 1; break; @@ -534,6 +535,7 @@ read_radix (fnode * f, char *dest, int length, int radix) case 'C': case 'D': case 'E': + case 'F': c = c - 'A' + '9' + 1; break; |