diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2006-07-30 13:23:26 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2006-07-30 13:23:26 +0300 |
| commit | 6097a897293d9d267155abe6fbacffa9c80e68ea (patch) | |
| tree | c9b61ef805165323d7954e161a5eb835d98c38b7 /libgfortran/io | |
| parent | f6837eeb462a81cba933ca029fd540e250e42ce9 (diff) | |
| download | gcc-6097a897293d9d267155abe6fbacffa9c80e68ea.zip gcc-6097a897293d9d267155abe6fbacffa9c80e68ea.tar.gz gcc-6097a897293d9d267155abe6fbacffa9c80e68ea.tar.bz2 | |
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
Diffstat (limited to 'libgfortran/io')
| -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++) { |