Fix obvious typo were errmsg_len was assigned to errmsg.
authorAndre Vehreschild <vehre@gcc.gnu.org>
Thu, 20 Aug 2020 15:50:16 +0000 (17:50 +0200)
committerAndre Vehreschild <vehre@gcc.gnu.org>
Thu, 20 Aug 2020 15:50:39 +0000 (17:50 +0200)
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.

gcc/fortran/trans-array.c

index 7a1b2fc74c988d969a95aeda4fade987495340a9..73a45cd2dcfce6292fcde568bf4815f845b84684 100644 (file)
@@ -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)
     {