* io/transfer.c (formatted_transfer): Fix typo in error message.

From-SVN: r101102
This commit is contained in:
Francois-Xavier Coudert 2005-06-17 00:31:32 +02:00 committed by François-Xavier Coudert
parent 2f06ccc69e
commit b9297522fd
2 changed files with 5 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* io/transfer.c (formatted_transfer): Fix typo in error message.
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/16436

View File

@ -685,7 +685,7 @@ formatted_transfer (bt type, void *p, int len)
if (pos < 0 || pos >= current_unit->recl )
{
generate_error (ERROR_EOR, "T Or TL edit position error");
generate_error (ERROR_EOR, "T or TL edit position error");
break ;
}
m = pos - (current_unit->recl - current_unit->bytes_left);