git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
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> 2006-07-26 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* configure.ac: Check for function clock. * configure.ac: Check for function clock.

3
libgfortran/io/transfer.c
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"); internal_error (&dtp->common, "transfer_array(): Bad type");
} }
if (desc->dim[0].stride == 0)
desc->dim[0].stride = 1;
rank = GFC_DESCRIPTOR_RANK (desc); rank = GFC_DESCRIPTOR_RANK (desc);
for (n = 0; n < rank; n++) for (n = 0; n < rank; n++)
{ {