Commit b9297522 by Francois-Xavier Coudert Committed by François-Xavier Coudert

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

From-SVN: r101102
parent 2f06ccc6
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> 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 PR libfortran/16436
* io/transfer.c (read_sf): Correct updating of bytes_left field. * io/transfer.c (read_sf): Correct updating of bytes_left field.
(formatted_transfer): Correct updating of bytes_left field and (formatted_transfer): Correct updating of bytes_left field and
......
...@@ -685,7 +685,7 @@ formatted_transfer (bt type, void *p, int len) ...@@ -685,7 +685,7 @@ formatted_transfer (bt type, void *p, int len)
if (pos < 0 || pos >= current_unit->recl ) 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 ; break ;
} }
m = pos - (current_unit->recl - current_unit->bytes_left); m = pos - (current_unit->recl - current_unit->bytes_left);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment