From 0f09fc8a844c3e3a8c57fbb2152e51ae54004d4c Mon Sep 17 00:00:00 2001 From: Andrew Stubbs Date: Wed, 22 May 2019 13:12:03 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/trans-stmt.c | 13 ++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) 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); } -- 2.30.2