Hello,
what is not clear to me is what the expected output is for the following
program:
program prog
use, intrinsic :: iso_fortran_env, only: team_type
implicit none
type(team_type) :: team
print *, team_number()
form team (12, team)
change team(team)
print *, team_number()
end team
end program
This program tries to answer the question:
A child team containing exactly the same images as its parent, is it the
same team or is it a different team from its parent?
I'm inclined to think that they are different teams, and the program
should output (for each image): -1 and 12.
With the other answer possible, meaning they are the same team, I expect
the output to be -1 twice.
I would like to answer the question above first before reviewing your patch.
Mikael
