WIP: Adapt to new F2018 teams handling.

Author: vehre

src/application-binary-interface/libcaf.h

@@ -88,24 +88,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[].  */
@@ -359,11 +347,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)(int *);
+#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 *);