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

From-SVN: r101102

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0467cb118cbce7684e1ef0cee8814544868e4fae..2637fb5ad039f551ef0da1b65a4ae4544c08dfaa 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index c81cb47eaa30a7ec7c876e178892cf411e279e72..d26e7f7f54bf07bc744f99b3f7bc49790f20cc86 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);