From: Andrew Stubbs Date: Wed, 22 May 2019 13:12:03 +0000 (+0000) Subject: Fix fortran size_type_node parameter passing. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0f09fc8a844c3e3a8c57fbb2152e51ae54004d4c;p=gcc.git Fix fortran size_type_node parameter passing. 2019-05-22 Andrew Stubbs gcc/fortran/ * trans-stmt.c (gfc_trans_critical): Use size_type_node for gfor_fndecl_caf_lock and gfor_fndecl_caf_unlock calls. (gfc_trans_allocate): Use size_type_node for gfor_fndecl_caf_sync_all call. From-SVN: r271512 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f119e748bf8..c3240f44e8d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2019-05-22 Andrew Stubbs + + * trans-stmt.c (gfc_trans_critical): Use size_type_node for + gfor_fndecl_caf_lock and gfor_fndecl_caf_unlock calls. + (gfc_trans_allocate): Use size_type_node for gfor_fndecl_caf_sync_all + call. + 2019-05-22 Jeff Law Mark Eggleston diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 5fa182bf05a..7c365634085 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1576,12 +1576,13 @@ gfc_trans_critical (gfc_code *code) if (flag_coarray == GFC_FCOARRAY_LIB) { + tree zero_size = build_zero_cst (size_type_node); token = gfc_get_symbol_decl (code->resolved_sym); token = GFC_TYPE_ARRAY_CAF_TOKEN (TREE_TYPE (token)); tmp = build_call_expr_loc (input_location, gfor_fndecl_caf_lock, 7, - token, integer_zero_node, integer_one_node, + token, zero_size, integer_one_node, null_pointer_node, null_pointer_node, - null_pointer_node, integer_zero_node); + null_pointer_node, zero_size); gfc_add_expr_to_block (&block, tmp); /* It guarantees memory consistency within the same segment */ @@ -1601,10 +1602,11 @@ gfc_trans_critical (gfc_code *code) if (flag_coarray == GFC_FCOARRAY_LIB) { + tree zero_size = build_zero_cst (size_type_node); tmp = build_call_expr_loc (input_location, gfor_fndecl_caf_unlock, 6, - token, integer_zero_node, integer_one_node, + token, zero_size, integer_one_node, null_pointer_node, null_pointer_node, - integer_zero_node); + zero_size); gfc_add_expr_to_block (&block, tmp); /* It guarantees memory consistency within the same segment */ @@ -6772,9 +6774,10 @@ gfc_trans_allocate (gfc_code * code) if (needs_caf_sync) { /* Add a sync all after the allocation has been executed. */ + tree zero_size = build_zero_cst (size_type_node); tmp = build_call_expr_loc (input_location, gfor_fndecl_caf_sync_all, 3, null_pointer_node, null_pointer_node, - integer_zero_node); + zero_size); gfc_add_expr_to_block (&post, tmp); }