diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index bc86448feb11..769c10c4eebc 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2006-07-30  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	* io/transfer.c (transfer_array): Remove stride0 fix.
+	
 2006-07-26  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	* configure.ac: Check for function clock.
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 4efb523ce78d..fc0613129d56 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -1229,9 +1229,6 @@ transfer_array (st_parameter_dt *dtp, gfc_array_char *desc, int kind,
       internal_error (&dtp->common, "transfer_array(): Bad type");
     }
 
-  if (desc->dim[0].stride == 0)
-    desc->dim[0].stride = 1;
-
   rank = GFC_DESCRIPTOR_RANK (desc);
   for (n = 0; n < rank; n++)
     {