Fortran: Add F2018 TEAM_NUMBER to coindexed expressions [PR98903]

Add missing parsing and code generation for a[..., TEAM_NUMBER=...] as
defined from F2015 onwards.  Because F2015 is not used as dedicated
standard in GFortran add it to the F2018 standard feature set.

	PR fortran/98903

gcc/fortran/ChangeLog:

	* array.cc (gfc_copy_array_ref): Copy team, team_type and stat.
	(match_team_or_stat): Match a single team(_number)= or stat=.
	(gfc_match_array_ref): Add switching to image_selector_parsing
	and error handling when indices come after named arguments.
	* coarray.cc (move_coarray_ref): Move also team_type.
	* expr.cc (gfc_free_ref_list): Free team and stat expression.
	(gfc_find_team_co): Find team or team_number in array-ref.
	* gfortran.h (enum gfc_array_ref_team_type): New enum to
	distinguish unset, team or team_number expression.
	(gfc_find_team_co): Default searching to team= expressions.
	* resolve.cc (resolve_array_ref): Check for type correctness of
	team(_number) and stats in coindices.
	* trans-array.cc (gfc_conv_array_ref): Ensure stat is cleared
	when fcoarray=single is used.
	* trans-intrinsic.cc (conv_stat_and_team): Including team_number
	in conversion.
	(gfc_conv_intrinsic_caf_get): Propagate team_number to ABI
	routine.
	(conv_caf_send_to_remote): Same.
	(conv_caf_sendget): Same.

gcc/testsuite/ChangeLog:

	* gfortran.dg/coarray/coindexed_2.f90: New test.
	* gfortran.dg/coarray/coindexed_3.f08: New test.
	* gfortran.dg/coarray/coindexed_4.f08: New test.

1 files changed, 2 insertions, 0 deletions

diff --git a/gcc/fortran/coarray.cc b/gcc/fortran/coarray.cc
index f53de0b..7058325 100644
--- a/gcc/fortran/coarray.cc
+++ b/gcc/fortran/coarray.cc
@@ -265,6 +265,8 @@ move_coarray_ref (gfc_ref **from, gfc_expr *expr)
   (*from)->u.ar.stat = nullptr;
   to->u.ar.team = (*from)->u.ar.team;
   (*from)->u.ar.team = nullptr;
+  to->u.ar.team_type = (*from)->u.ar.team_type;
+  (*from)->u.ar.team_type = TEAM_UNSET;
   for (i = 0; i < to->u.ar.dimen; ++i)
     {
       to->u.ar.start[i] = nullptr;