From 31d1d680bb7f175a1accad38f08e13fb90129370 Mon Sep 17 00:00:00 2001 From: steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> Date: Thu, 5 Aug 2004 08:37:42 +0000 Subject: [PATCH] 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 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/read.c | 2 ++ 2 files changed, 7 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3aaf82fd6f69..4a06ac5e8fe0 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 3ce9f1d3a1af..260a3dca5c6c 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; -- GitLab