[PATCH, committed] libgfortran/io/transfer.c typo.

David Edelsohn dje@watson.ibm.com
Mon Dec 13 16:10:00 GMT 2004


	While debugging another problem with transfer.c, I noticed a
warning for read_sf that does not appear to occur for x86.  Corrected with
the following patch approved by Paul Brook on IRC.

David


	* io/transfer.c (read_sf): Change bitwise "and" to logical "and".

Index: transfer.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/io/transfer.c,v
retrieving revision 1.20
diff -c -p -r1.20 transfer.c
*** transfer.c	12 Dec 2004 08:59:05 -0000	1.20
--- transfer.c	13 Dec 2004 15:52:47 -0000
*************** read_sf (int *length)
*** 162,168 ****
  
        /* If we have a line without a terminating \n, drop through to
  	 EOR below.  */
!       if (readlen < 1 & n == 0)
  	{
  	  generate_error (ERROR_END, NULL);
  	  return NULL;
--- 162,168 ----
  
        /* If we have a line without a terminating \n, drop through to
  	 EOR below.  */
!       if (readlen < 1 && n == 0)
  	{
  	  generate_error (ERROR_END, NULL);
  	  return NULL;



More information about the Fortran mailing list