From 8a21765e787c7fa2b9eaec4f1ca860c0b8f4de18 Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Fri, 9 Aug 2024 09:21:48 -0500 Subject: [PATCH] fix all images calculate heap start on change team --- src/caffeine/teams_s.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/caffeine/teams_s.f90 b/src/caffeine/teams_s.f90 index 553023b5a..b3f393fb6 100644 --- a/src/caffeine/teams_s.f90 +++ b/src/caffeine/teams_s.f90 @@ -7,9 +7,9 @@ contains module procedure prif_change_team + team%info%heap_start = current_team%info%child_heap_info%offset + current_team%info%heap_start + team%info%heap_size = current_team%info%child_heap_info%size if (caf_this_image(team%info%gex_team) == 1) then ! need to setup the heap for the team - team%info%heap_start = current_team%info%child_heap_info%offset + current_team%info%heap_start - team%info%heap_size = current_team%info%child_heap_info%size call caf_establish_mspace( & team%info%heap_mspace, & as_c_ptr(team%info%heap_start), &