Improve teams implementation

Improve the implementation of team's functions to adhere to the Fortran
2018 standard and gfortran from 15 on.

Author: vehre

CMakeLists.txt

@@ -233,7 +233,7 @@ endif()
   if ( gfortran_compiler AND ( NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 8.0.0 ) )
     add_definitions(-DGCC_GE_8) # Tell library to build against GFortran 8.x bindings w/ descriptor change
   endif()
-  if ( gfortran_compiler AND ( NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 14.0.0 ) )
+  if ( gfortran_compiler AND ( NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 15.0.0 ) )
     add_definitions(-DGCC_GE_15) # Tell library to build against GFortran 15.x bindings
   endif()
 
@@ -803,7 +803,6 @@ if(opencoarrays_aware_compiler)
     add_caf_test(comp_allocated_2 2 comp_allocated_2)
     add_caf_test(alloc_comp_get_convert_nums 2 alloc_comp_get_convert_nums)
     if(NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 8)
-      add_caf_test(team_number 8 team_number)
       add_caf_test(teams_subset 3 teams_subset)
       add_caf_test(get_communicator 3  get_communicator)
       add_caf_test(teams_coarray_get 5 teams_coarray_get)
@@ -815,6 +814,13 @@ if(opencoarrays_aware_compiler)
       add_caf_test(alloc_comp_multidim_shape 2 alloc_comp_multidim_shape)
       set_tests_properties(alloc_comp_multidim_shape PROPERTIES TIMEOUT 300)
     endif()
+    if(NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 15)
+        add_caf_test(team_number 8 team_number)
+        add_caf_test(teams_this_image 8 teams_this_image)
+        add_caf_test(teams_num_images 8 teams_num_images)
+    else()
+        add_caf_test(team_number_pre15 8 team_number_pre15)
+    endif()
   endif()
 
   if (gfortran_compiler)

src/application-binary-interface/libcaf.h

@@ -65,6 +65,17 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  */
 #define STAT_STOPPED_IMAGE 6000
 #define STAT_FAILED_IMAGE 6001
 
+#ifdef GCC_GE_15
+/* Definitions of the Fortran 2018 standard; need to kept in sync with
+   ISO_FORTRAN_ENV, cf. gcc/fortran/libgfortran.h.  */
+typedef enum
+{
+  CAF_INITIAL_TEAM = 0,
+  CAF_PARENT_TEAM,
+  CAF_CURRENT_TEAM
+} caf_team_level_t;
+#endif
+
 /* Describes what type of array we are registerring. Keep in sync with
    gcc/fortran/trans.h.  */
 typedef enum caf_register_t
@@ -88,24 +99,12 @@ typedef enum caf_deregister_t
   CAF_DEREGTYPE_COARRAY_DEALLOCATE_ONLY
 } caf_deregister_t;
 
+/** The opaque type to represent a coarray token. */
 typedef void *caf_token_t;
-/** Add a dummy type representing teams in coarrays. */
 
+/** The opaque type for teams. */
 typedef void *caf_team_t;
 
-typedef struct caf_teams_list
-{
-  caf_team_t team;
-  int team_id;
-  struct caf_teams_list *prev;
-} caf_teams_list;
-
-typedef struct caf_used_teams_list
-{
-  struct caf_teams_list *team_list_elem;
-  struct caf_used_teams_list *prev;
-} caf_used_teams_list;
-
 /* When there is a vector subscript in this dimension, nvec == 0, otherwise,
    lower_bound, upper_bound, stride contains the bounds relative to the declared
    bounds; kind denotes the integer kind of the elements of vector[].  */
@@ -238,8 +237,15 @@ bool PREFIX(is_contiguous)(gfc_descriptor_t *);
 void PREFIX(init)(int *, char ***);
 void PREFIX(finalize)(void);
 
+#ifdef GCC_GE_15
+int PREFIX(this_image)(caf_team_t);
+
+int PREFIX(num_images)(caf_team_t, int32_t *);
+#else
 int PREFIX(this_image)(int);
+
 int PREFIX(num_images)(int, int);
+#endif
 
 #ifdef GCC_GE_7
 void PREFIX(register)(size_t, caf_register_t, caf_token_t *, gfc_descriptor_t *,
@@ -359,11 +365,20 @@ void PREFIX(error_stop)(int QUIETARG) __attribute__((noreturn));
 
 void PREFIX(fail_image)(void) __attribute__((noreturn));
 
+#ifdef GCC_GE_15
+void PREFIX(form_team)(int, caf_team_t *, int *, int *, char *, charlen_t);
+void PREFIX(change_team)(caf_team_t, int *, char *, charlen_t);
+void PREFIX(end_team)(int *, char *, charlen_t);
+void PREFIX(sync_team)(caf_team_t, int *, char *, charlen_t);
+int PREFIX(team_number)(caf_team_t);
+caf_team_t PREFIX(get_team)(int32_t *);
+#else
 void PREFIX(form_team)(int, caf_team_t *, int);
 void PREFIX(change_team)(caf_team_t *, int);
 void PREFIX(end_team)(caf_team_t *);
 void PREFIX(sync_team)(caf_team_t *, int);
 int PREFIX(team_number)(caf_team_t *);
+#endif
 
 int PREFIX(image_status)(int);
 void PREFIX(failed_images)(gfc_descriptor_t *, int, int *);