re PR libfortran/89593 (warning "passing argument 3 of ‘_gfortran_caf_{get,send}_by_r...

	PR libgfortran/89593
	* caf/single.c (_gfortran_caf_sendget_by_ref): Cast &temp to
	gfc_descriptor_t * to avoid warning.

From-SVN: r269405

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 25db8c65b7d479503087289f22505d2f0f3409bd..6ce8b5f9fcfa801a32cd3e8d762610878f7072e9 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2019-03-05  Jakub Jelinek  <jakub@redhat.com>
+
+       PR libgfortran/89593
+       * caf/single.c (_gfortran_caf_sendget_by_ref): Cast &temp to
+       gfc_descriptor_t * to avoid warning.
+
 2019-02-26  Uroš Bizjak  <ubizjak@gmail.com>
 
        * io/transfer.c (transfer_array_inner): Do not

diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c
index 1190f1abae3ea1dcc8f98e1d603657f87b5bcf6f..2e634bc8d551a5053206e47f177219fb5a6dfe82 100644 (file)
--- a/libgfortran/caf/single.c
+++ b/libgfortran/caf/single.c
@@ -2810,14 +2810,16 @@ _gfortran_caf_sendget_by_ref (caf_token_t dst_token, int dst_image_index,
   GFC_DESCRIPTOR_RANK (&temp) = -1;
   GFC_DESCRIPTOR_TYPE (&temp) = dst_type;
 
-  _gfortran_caf_get_by_ref (src_token, src_image_index, &temp, src_refs,
+  _gfortran_caf_get_by_ref (src_token, src_image_index,
+                           (gfc_descriptor_t *) &temp, src_refs,
                            dst_kind, src_kind, may_require_tmp, true,
                            src_stat, src_type);
 
   if (src_stat && *src_stat != 0)
     return;
 
-  _gfortran_caf_send_by_ref (dst_token, dst_image_index, &temp, dst_refs,
+  _gfortran_caf_send_by_ref (dst_token, dst_image_index,
+                            (gfc_descriptor_t *) &temp, dst_refs,
                             dst_kind, dst_kind, may_require_tmp, true,
                             dst_stat, dst_type);
   if (GFC_DESCRIPTOR_DATA (&temp))