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:
Victor Leikehman 2004-08-05 08:37:42 +00:00 committed by Steven Bosscher
parent ea5f7a1992
commit 943bf8b513
2 changed files with 7 additions and 0 deletions

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

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