OSDN Git Service

2006-07-30 Janne Blomqvist <jb@gcc.gnu.org>
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 30 Jul 2006 10:23:26 +0000 (10:23 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 30 Jul 2006 10:23:26 +0000 (10:23 +0000)
* 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

libgfortran/ChangeLog
libgfortran/io/transfer.c

index bc86448..769c10c 100644 (file)
@@ -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.
index 4efb523..fc06131 100644 (file)
@@ -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++)
     {