Index: transfer.c
===================================================================
RCS file: /cvsroot/gcc/gcc/libgfortran/io/transfer.c,v
retrieving revision 1.31
diff -c -r1.31 transfer.c
*** transfer.c	29 Jan 2005 15:45:17 -0000	1.31
--- transfer.c	31 Jan 2005 21:13:00 -0000
***************
*** 150,156 ****
    else
      p = base = data;
  
!   memset(base,'\0',*length);
  
    current_unit->bytes_left = options.default_recl;
    readlen = 1;
--- 150,161 ----
    else
      p = base = data;
  
!   memset(base,' ',*length);
! 
!   /* If we have seen an end of record previously, just return blanks.
!    */
!   if (sf_seen_eor)
!     return base;
  
    current_unit->bytes_left = options.default_recl;
    readlen = 1;
***************
*** 1223,1229 ****
        length = 1;
        /* sf_read has already terminated input because of an '\n'  */
        if (sf_seen_eor) 
!          break;
  
        do
          {
--- 1228,1237 ----
        length = 1;
        /* sf_read has already terminated input because of an '\n'  */
        if (sf_seen_eor) 
! 	{
! 	  sf_seen_eor = 0;
! 	  break;
! 	}
  
        do
          {