OSDN Git Service

Commit for Victor Leikehman <lei@il.ibm.com>
authorsteven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 5 Aug 2004 08:37:42 +0000 (08:37 +0000)
committersteven <steven@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 5 Aug 2004 08:37:42 +0000 (08:37 +0000)
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
libgfortran/io/read.c

index 3aaf82f..4a06ac5 100644 (file)
@@ -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.
index 3ce9f1d..260a3dc 100644 (file)
@@ -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;