transfer.c (transfer_array): Remove stride0 fix.

2006-07-30  Janne Blomqvist  <jb@gcc.gnu.org>

	* io/transfer.c (transfer_array): Remove stride0 fix.

From-SVN: r115818

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index bc86448feb1108efb69df2432d6e8b592f200c83..769c10c4eebc27de7962e7bd55fdf3ea1741d1e6 100644 (file)
--- 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 4efb523ce78d8d03555e82aa5b7b876c04ac1576..fc0613129d567cba355e59ccea9dee9a135ad062 100644 (file)
--- 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++)
     {