diff options
author | Uros Bizjak <ubizjak@gmail.com> | 2019-02-26 18:41:53 +0000 |
---|---|---|
committer | Uros Bizjak <ubizjak@gmail.com> | 2019-02-26 18:41:53 +0000 |
commit | 31ce1550ed08939a7f425cb76ce0960d4bee3816 (patch) | |
tree | 86e0889eae6ed18b4e3231d7e63db78bb692d6a1 /libgfortran | |
parent | ba2c53105270376ef9f7546b53e12b97be1038c0 (diff) |
* io/transfer.c (transfer_array_inner): Do not
cast charlen to index_type.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@269224 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
-rw-r--r-- | libgfortran/io/transfer.c | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 0941b5876fd..25db8c65b7d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 247fb6d2a9c..c43360f6332 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -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); |