mirror of git://gcc.gnu.org/git/gcc.git
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:
parent
f6837eeb46
commit
6097a89729
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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++)
|
||||
{
|
||||
|
|
|
|||
Loading…
Reference in New Issue