aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans-array.c
diff options
context:
space:
mode:
authorAndre Vehreschild <vehre@gcc.gnu.org>2020-08-20 17:50:16 +0200
committerAndre Vehreschild <vehre@gcc.gnu.org>2020-08-20 17:50:39 +0200
commit05814dde7024a8fa05a735cafcda72b5eb5ec0c0 (patch)
tree4386a60c334add62131e03dea5506f1febd594d9 /gcc/fortran/trans-array.c
parent91d206adfe39ce063f6a5731b92a03c05e82e94a (diff)
downloadgcc-05814dde7024a8fa05a735cafcda72b5eb5ec0c0.zip
gcc-05814dde7024a8fa05a735cafcda72b5eb5ec0c0.tar.gz
gcc-05814dde7024a8fa05a735cafcda72b5eb5ec0c0.tar.bz2
Fix obvious typo were errmsg_len was assigned to errmsg.
gcc/fortran/ChangeLog: 2020-08-20 Andre Vehreschild <vehre@gcc.gnu.org> PR fortran/94958 * trans-array.c (gfc_bcast_alloc_comp): Use the correct variable.
Diffstat (limited to 'gcc/fortran/trans-array.c')
-rw-r--r--gcc/fortran/trans-array.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 7a1b2fc..73a45cd 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -9732,7 +9732,7 @@ gfc_bcast_alloc_comp (gfc_symbol *derived, gfc_expr *expr, int rank,
args.image_index = image_index;
args.stat = stat;
args.errmsg = errmsg;
- args.errmsg = errmsg_len;
+ args.errmsg_len = errmsg_len;
if (rank == 0)
{