From 6097a897293d9d267155abe6fbacffa9c80e68ea Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Sun, 30 Jul 2006 13:23:26 +0300 Subject: [PATCH] transfer.c (transfer_array): Remove stride0 fix. 2006-07-30 Janne Blomqvist * io/transfer.c (transfer_array): Remove stride0 fix. From-SVN: r115818 --- libgfortran/ChangeLog | 4 ++++ libgfortran/io/transfer.c | 3 --- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index bc86448feb1..769c10c4eeb 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2006-07-30 Janne Blomqvist + + * io/transfer.c (transfer_array): Remove stride0 fix. + 2006-07-26 Francois-Xavier Coudert * configure.ac: Check for function clock. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 4efb523ce78..fc0613129d5 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++) {