mirror of git://gcc.gnu.org/git/gcc.git
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
|
@ -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>
|
2004-08-04 Victor Leikehman <lei@il.ibm.com>
|
||||||
|
|
||||||
* libgfortran.h (array_t, size0) New declarations.
|
* libgfortran.h (array_t, size0) New declarations.
|
||||||
|
|
|
@ -526,6 +526,7 @@ read_radix (fnode * f, char *dest, int length, int radix)
|
||||||
case 'c':
|
case 'c':
|
||||||
case 'd':
|
case 'd':
|
||||||
case 'e':
|
case 'e':
|
||||||
|
case 'f':
|
||||||
c = c - 'a' + '9' + 1;
|
c = c - 'a' + '9' + 1;
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
@ -534,6 +535,7 @@ read_radix (fnode * f, char *dest, int length, int radix)
|
||||||
case 'C':
|
case 'C':
|
||||||
case 'D':
|
case 'D':
|
||||||
case 'E':
|
case 'E':
|
||||||
|
case 'F':
|
||||||
c = c - 'A' + '9' + 1;
|
c = c - 'A' + '9' + 1;
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue