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
This commit is contained in:
Janne Blomqvist 2006-07-30 13:23:26 +03:00
parent f6837eeb46
commit 6097a89729
2 changed files with 4 additions and 3 deletions

View 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.

View 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++)
{