diff --git a/test/caf_teams_test.f90 b/test/caf_teams_test.f90 index f1cc3de0..a413297f 100644 --- a/test/caf_teams_test.f90 +++ b/test/caf_teams_test.f90 @@ -68,13 +68,13 @@ function check_teams() result(result_) call prif_get_team(level=PRIF_CURRENT_TEAM, team=t) call prif_team_number(team=t, team_number=n) result_ = result_ .and. & - assert_equals(int(n), -1, "prif_get_team(PRIF_CURRENT_TEAM) retrieves initial team") + assert_equals(int(n), -1, "prif_get_team(PRIF_CURRENT_TEAM) retrieves initial team when current team is initial team") t = prif_team_type() ; n = 0 ! clear outputs call prif_get_team(level=PRIF_PARENT_TEAM, team=t) call prif_team_number(team=t, team_number=n) result_ = result_ .and. & - assert_equals(int(n), -1, "prif_get_team(PRIF_PARENT_TEAM) retrieves initial team") + assert_equals(int(n), -1, "prif_get_team(PRIF_PARENT_TEAM) retrieves initial team when parent team is initial team") which_team = merge(1_c_int64_t, 2_c_int64_t, mod(me, 2) == 0) element_size = int(storage_size(dummy_element)/8, c_size_t) @@ -132,7 +132,7 @@ function check_teams() result(result_) call prif_get_team(level=PRIF_PARENT_TEAM, team=t) call prif_team_number(team=t, team_number=n) result_ = result_ .and. & - assert_equals(int(n), -1, "prif_get_team(PRIF_PARENT_TEAM) retrieves initial team") + assert_equals(int(n), -1, "prif_get_team(PRIF_PARENT_TEAM) retrieves initial team when parent team is initial team") x = 0 ! clear outputs call prif_num_images_with_team(team=initial_team, num_images=x)