Index: transfer.c
===================================================================
RCS file: /cvsroot/gcc/gcc/libgfortran/io/transfer.c,v
retrieving revision 1.30
diff -c -r1.30 transfer.c
*** transfer.c	23 Jan 2005 17:16:43 -0000	1.30
--- transfer.c	26 Jan 2005 21:18:46 -0000
***************
*** 1041,1047 ****
  
    if (read_flag)
      {
!       if (ioparm.eor != 0 && advance_status == ADVANCE_NO)
  	generate_error (ERROR_MISSING_OPTION,
  			"EOR specification requires an ADVANCE specification of NO");
  
--- 1041,1047 ----
  
    if (read_flag)
      {
!       if (ioparm.eor != 0 && advance_status != ADVANCE_NO)
  	generate_error (ERROR_MISSING_OPTION,
  			"EOR specification requires an ADVANCE specification of NO");