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
This commit is contained in:
parent
ea5f7a1992
commit
943bf8b513
2 changed files with 7 additions and 0 deletions
|
@ -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.
|
||||
|
|
|
@ -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;
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue