diff options
| author | Uros Bizjak <ubizjak@gmail.com> | 2019-02-26 19:41:53 +0100 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2019-02-26 19:41:53 +0100 |
| commit | 140a0bddcc12f14fcbc914e117ccf79cc6dd16cc (patch) | |
| tree | 86e0889eae6ed18b4e3231d7e63db78bb692d6a1 /libgfortran/io | |
| parent | 60448173c4fc67032eb30e6e189055d7c97ceafd (diff) | |
| download | gcc-140a0bddcc12f14fcbc914e117ccf79cc6dd16cc.zip gcc-140a0bddcc12f14fcbc914e117ccf79cc6dd16cc.tar.gz gcc-140a0bddcc12f14fcbc914e117ccf79cc6dd16cc.tar.bz2 | |
transfer.c (transfer_array_inner): Do not cast charlen to index_type.
* io/transfer.c (transfer_array_inner): Do not
cast charlen to index_type.
From-SVN: r269224
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 247fb6d..c43360f 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); |