From: steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 5 Aug 2004 08:37:42 +0000 (+0000)
Subject: Commit for Victor Leikehman  <lei@il.ibm.com>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=31d1d680bb7f175a1accad38f08e13fb90129370

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
---

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;