mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-27 05:44:15 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

transfer.c (transfer_array_inner): Do not cast charlen to index_type.

Browse Source 
* io/transfer.c (transfer_array_inner): Do not
	cast charlen to index_type.

From-SVN: r269224
This commit is contained in:
Uros Bizjak 2019-02-26 19:41:53 +01:00 committed by Uros Bizjak
parent 60448173c4
commit 140a0bddcc
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2019-02-26 Uroš Bizjak <ubizjak@gmail.com>
* io/transfer.c (transfer_array_inner): Do not
cast charlen to index_type.
2019-02-25 Dominique d'Humieres <dominiq@gcc.gnu.org>
PR libfortran/89274
@ -120,7 +125,6 @@
2019-01-09 Sandra Loosemore <sandra@codesourcery.com>
PR other/16615
* caf/single.c: Mechanically replace "can not" with "cannot".
* io/unit.c: Likewise.

2
libgfortran/io/transfer.c
View File

@ -2496,7 +2496,7 @@ transfer_array_inner (st_parameter_dt *dtp, gfc_array_char *desc, int kind,
return;
iotype = (bt) GFC_DESCRIPTOR_TYPE (desc);
size = iotype == BT_CHARACTER ? (index_type) charlen : GFC_DESCRIPTOR_SIZE (desc);
size = iotype == BT_CHARACTER ? charlen : GFC_DESCRIPTOR_SIZE (desc);
rank = GFC_DESCRIPTOR_RANK (desc);