diff options
| author | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-05 08:37:42 +0000 |
|---|---|---|
| committer | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-08-05 08:37:42 +0000 |
| commit | 31d1d680bb7f175a1accad38f08e13fb90129370 (patch) | |
| tree | a23b397075a2c70697fdded6abc2507ed87110c1 /libgfortran | |
| parent | b17e42301f9d1dfa8879d66fce0c87ac7722ae5d (diff) | |
| download | gcc-31d1d680bb7f175a1accad38f08e13fb90129370.tar.gz | |
Commit for Victor Leikehman <lei@il.ibm.com>
PR libgfortran/16704
* io/read.c (read_radix): Understand letters f and F as hex digits.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85596 138bc75d-0d04-0410-961f-82ee72b054a4
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 3aaf82fd6f6..4a06ac5e8fe 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 3ce9f1d3a1a..260a3dca5c6 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; |