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

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

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index bc86448..769c10c 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 4efb523..fc06131 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++)
     {