From 5c72c183e681d2efa0d5b02f01ab51466cf42599 Mon Sep 17 00:00:00 2001 From: Weiyuan Jiang Date: Mon, 29 Jan 2024 11:24:56 -0500 Subject: [PATCH] Always add message to oserver-root even it is 0-sized --- CHANGELOG.md | 2 ++ pfio/MultiGroupServer.F90 | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index c8e980c155d3..b92a7c9ab5dd 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -13,6 +13,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Fixed +- added 0-size message to o-server root processes + ### Removed ### Deprecated diff --git a/pfio/MultiGroupServer.F90 b/pfio/MultiGroupServer.F90 index abbee7fd73dd..71278ddd922b 100644 --- a/pfio/MultiGroupServer.F90 +++ b/pfio/MultiGroupServer.F90 @@ -367,7 +367,7 @@ subroutine receive_output_data(this, rc) call handle%wait() words = word_size(q%type_kind) local_size = product(q%count)*words - if (local_size > 0) then + if (local_size > 0 .or. this%I_am_front_root) then collection_counter = this%stage_offset%at(i_to_string(q%collection_id)) call c_f_pointer(handle%data_reference%base_address, i_ptr, shape=[local_size]) call f_d_ms(collection_counter)%add_data_message(q, i_ptr)