Index: transfer.c
===================================================================
RCS file: /cvsroot/gcc/gcc/libgfortran/io/transfer.c,v
retrieving revision 1.32
diff -p -c -r1.32 transfer.c
*** transfer.c	22 Feb 2005 03:26:25 -0000	1.32
--- transfer.c	6 Mar 2005 23:23:17 -0000
*************** read_sf (int *length)
*** 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);
!   printf("read_s  printf("%d\n",*length);
! 
!   /* If we have seen an eor previously, just return blanks.  */
!   if (sf_seen_eor)
!     return base;
  
    current_unit->bytes_left = options.default_recl;
    readlen = 1;