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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101102 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0467cb1..2637fb5 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,5 +1,9 @@
 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
        * io/transfer.c (read_sf): Correct updating of bytes_left field.
        (formatted_transfer): Correct updating of bytes_left field and

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index c81cb47..d26e7f7 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -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);