Index: io/transfer.c
===================================================================
*** io/transfer.c	(revision 113213)
--- io/transfer.c	(working copy)
*************** formatted_transfer_scalar (st_parameter_
*** 670,676 ****
  
        f = next_format (dtp);
        if (f == NULL)
! 	return;	      /* No data descriptors left (already raised).  */
  
        /* Now discharge T, TR and X movements to the right.  This is delayed
  	 until a data producing format to suppress trailing spaces.  */
--- 670,682 ----
  
        f = next_format (dtp);
        if (f == NULL)
! 	{
! 	  /* No data descriptors left.  */
! 	  if (n > 0)
! 	    generate_error (&dtp->common, NULL,
! 				"Data descriptors exhausted in format");
! 	  return;
! 	}
  
        /* Now discharge T, TR and X movements to the right.  This is delayed
  	 until a data producing format to suppress trailing spaces.  */