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

From-SVN: r101103

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 8a8bb33e1ef7b9743738dac29cf034f839e9cee1..9a5608b12f19a29bb77340ca2193877b2fcd10d8 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 3bfa07a2c460b22087099f7dad1a6fe02b4eb741..8c5141a4b6fa5c4017ec2f90e39ae1fddcea00c7 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);