This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
patch to libgfortran/16704
- From: Victor Leikehman <lei at haifasphere dot co dot il>
- To: gcc-patches at gcc dot gnu dot org, fortran <fortran at gcc dot gnu dot org>
- Date: Wed, 28 Jul 2004 14:03:27 +0300
- Subject: patch to libgfortran/16704
- Organization: IBM Research Lab in Haifa, Israel
Test case:
program main
character*2 buf
buf = 'ff'
read (buf, '(Z2.2)'), i
if (i.ne.255) call abort
end
===================================================================
2004-07-28 Victor Leikehman <lei@il.ibm.com>
PR libgfortran/16704
* io/read.c (read_radix): Understand letters f and F
as hex digits.
Index: read.c
===================================================================
RCS file: /cvsroot/gcc/gcc/libgfortran/io/read.c,v
retrieving revision 1.2
diff -c -p -r1.2 read.c
*** read.c 13 May 2004 06:41:02 -0000 1.2
--- read.c 28 Jul 2004 10:58:20 -0000
*************** read_radix (fnode * f, char *dest, int l
*** 526,531 ****
--- 526,532 ----
case 'c':
case 'd':
case 'e':
+ case 'f':
c = c - 'a' + '9' + 1;
break;
*************** read_radix (fnode * f, char *dest, int l
*** 534,539 ****
--- 535,541 ----
case 'C':
case 'D':
case 'E':
+ case 'F':
c = c - 'A' + '9' + 1;
break;
--
Victor Leikehman
IBM Research Labs in Haifa, Israel