diff options
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 4efb523..fc06131 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++) { |