[thirdparty/gcc.git] / libgfortran / caf / libcaf.h

/* Common declarations for all of GNU Fortran libcaf implementations.
   Copyright (C) 2011-2019 Free Software Foundation, Inc.
   Contributed by Tobias Burnus <burnus@net-b.de>

This file is part of the GNU Fortran Coarray Runtime Library (libcaf).

Libcaf is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.

Libcaf is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.

You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
<http://www.gnu.org/licenses/>.  */

#ifndef LIBCAF_H
#define LIBCAF_H

#include <stdbool.h>
#include <stddef.h>	/* For size_t.  */

#include "libgfortran.h"

#if 0
#ifndef __GNUC__
#define __attribute__(x)
#define likely(x)       (x)
#define unlikely(x)     (x)
#else
#define likely(x)       __builtin_expect(!!(x), 1)
#define unlikely(x)     __builtin_expect(!!(x), 0)
#endif
#endif

/* Definitions of the Fortran 2008 standard; need to kept in sync with
   ISO_FORTRAN_ENV, cf. gcc/fortran/libgfortran.h.  */
typedef enum
{
  CAF_STAT_UNLOCKED = 0,
  CAF_STAT_LOCKED,
  CAF_STAT_LOCKED_OTHER_IMAGE,
  CAF_STAT_STOPPED_IMAGE = 6000,
  CAF_STAT_FAILED_IMAGE  = 6001
}
caf_stat_codes_t;


/* Describes what type of array we are registerring.  Keep in sync with
   gcc/fortran/trans.h.  */
typedef enum caf_register_t {
  CAF_REGTYPE_COARRAY_STATIC,
  CAF_REGTYPE_COARRAY_ALLOC,
  CAF_REGTYPE_LOCK_STATIC,
  CAF_REGTYPE_LOCK_ALLOC,
  CAF_REGTYPE_CRITICAL,
  CAF_REGTYPE_EVENT_STATIC,
  CAF_REGTYPE_EVENT_ALLOC,
  CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY,
  CAF_REGTYPE_COARRAY_ALLOC_ALLOCATE_ONLY
}
caf_register_t;

/* Describes the action to take on _caf_deregister.  Keep in sync with
   gcc/fortran/trans.h.  */
typedef enum caf_deregister_t {
  CAF_DEREGTYPE_COARRAY_DEREGISTER,
  CAF_DEREGTYPE_COARRAY_DEALLOCATE_ONLY
}
caf_deregister_t;

typedef void* caf_token_t;
typedef void * caf_team_t;
typedef gfc_array_void gfc_descriptor_t;

/* Linked list of static coarrays registered.  */
typedef struct caf_static_t {
  caf_token_t token;
  struct caf_static_t *prev;
}
caf_static_t;

/* 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[].  */
typedef struct caf_vector_t {
  size_t nvec;
  union {
    struct {
      void *vector;
      int kind;
    } v;
    struct {
      ptrdiff_t lower_bound, upper_bound, stride;
    } triplet;
  } u;
}
caf_vector_t;

typedef enum caf_ref_type_t {
  /* Reference a component of a derived type, either regular one or an
     allocatable or pointer type.  For regular ones idx in caf_reference_t is
     set to -1.  */
  CAF_REF_COMPONENT,
  /* Reference an allocatable array.  */
  CAF_REF_ARRAY,
  /* Reference a non-allocatable/non-pointer array.  */
  CAF_REF_STATIC_ARRAY
} caf_ref_type_t;

typedef enum caf_array_ref_t {
  /* No array ref.  This terminates the array ref.  */
  CAF_ARR_REF_NONE = 0,
  /* Reference array elements given by a vector.  Only for this mode
     caf_reference_t.u.a.dim[i].v is valid.  */
  CAF_ARR_REF_VECTOR,
  /* A full array ref (:).  */
  CAF_ARR_REF_FULL,
  /* Reference a range on elements given by start, end and stride.  */
  CAF_ARR_REF_RANGE,
  /* Only a single item is referenced given in the start member.  */
  CAF_ARR_REF_SINGLE,
  /* An array ref of the kind (i:), where i is an arbitrary valid index in the
     array.  The index i is given in the start member.  */
  CAF_ARR_REF_OPEN_END,
  /* An array ref of the kind (:i), where the lower bound of the array ref
     is given by the remote side.  The index i is given in the end member.  */
  CAF_ARR_REF_OPEN_START
} caf_array_ref_t;

/* References to remote components of a derived type.  */
typedef struct caf_reference_t {
  /* A pointer to the next ref or NULL.  */
  struct caf_reference_t *next;
  /* The type of the reference.  */
  /* caf_ref_type_t, replaced by int to allow specification in fortran FE.  */
  int type;
  /* The size of an item referenced in bytes.  I.e. in an array ref this is
     the factor to advance the array pointer with to get to the next item.
     For component refs this gives just the size of the element referenced.  */
  size_t item_size;
  union {
    struct {
      /* The offset (in bytes) of the component in the derived type.  */
      ptrdiff_t offset;
      /* The offset (in bytes) to the caf_token associated with this
	 component.  NULL, when not allocatable/pointer ref.  */
      ptrdiff_t caf_token_offset;
    } c;
    struct {
      /* The mode of the array ref.  See CAF_ARR_REF_*.  */
      /* caf_array_ref_t, replaced by unsigend char to allow specification in
	 fortran FE.  */
      unsigned char mode[GFC_MAX_DIMENSIONS];
      /* The type of a static array.  Unset for array's with descriptors.  */
      int static_array_type;
      /* Subscript refs (s) or vector refs (v).  */
      union {
	struct {
	  /* The start and end boundary of the ref and the stride.  */
	  index_type start, end, stride;
	} s;
	struct {
	  /* nvec entries of kind giving the elements to reference.  */
	  void *vector;
	  /* The number of entries in vector.  */
	  size_t nvec;
	  /* The integer kind used for the elements in vector.  */
	  int kind;
	} v;
      } dim[GFC_MAX_DIMENSIONS];
    } a;
  } u;
} caf_reference_t;

void _gfortran_caf_init (int *, char ***);
void _gfortran_caf_finalize (void);

int _gfortran_caf_this_image (int);
int _gfortran_caf_num_images (int, int);

void _gfortran_caf_register (size_t, caf_register_t, caf_token_t *,
			     gfc_descriptor_t *, int *, char *, size_t);
void _gfortran_caf_deregister (caf_token_t *, caf_deregister_t, int *, char *,
			       size_t);

void _gfortran_caf_sync_all (int *, char *, size_t);
void _gfortran_caf_sync_memory (int *, char *, size_t);
void _gfortran_caf_sync_images (int, int[], int *, char *, size_t);

void _gfortran_caf_stop_numeric (int, bool)
     __attribute__ ((noreturn));
void _gfortran_caf_stop_str (const char *, size_t, bool)
     __attribute__ ((noreturn));
void _gfortran_caf_error_stop_str (const char *, size_t, bool)
     __attribute__ ((noreturn));
void _gfortran_caf_error_stop (int, bool) __attribute__ ((noreturn));
void _gfortran_caf_fail_image (void) __attribute__ ((noreturn));

void _gfortran_caf_co_broadcast (gfc_descriptor_t *, int, int *, char *, size_t);
void _gfortran_caf_co_sum (gfc_descriptor_t *, int, int *, char *, size_t);
void _gfortran_caf_co_min (gfc_descriptor_t *, int, int *, char *, int, size_t);
void _gfortran_caf_co_max (gfc_descriptor_t *, int, int *, char *, int, size_t);
void _gfortran_caf_co_reduce (gfc_descriptor_t *, void* (*) (void *, void*),
			      int, int, int *, char *, int, size_t);

void _gfortran_caf_get (caf_token_t, size_t, int, gfc_descriptor_t *,
			caf_vector_t *, gfc_descriptor_t *, int, int, bool,
			int *);
void _gfortran_caf_send (caf_token_t, size_t, int, gfc_descriptor_t *,
			 caf_vector_t *, gfc_descriptor_t *, int, int, bool,
			 int *);
void _gfortran_caf_sendget (caf_token_t, size_t, int, gfc_descriptor_t *,
			    caf_vector_t *, caf_token_t, size_t, int,
			    gfc_descriptor_t *, caf_vector_t *, int, int, bool);

void _gfortran_caf_get_by_ref (caf_token_t token, int image_idx,
	gfc_descriptor_t *dst, caf_reference_t *refs, int dst_kind,
	int src_kind, bool may_require_tmp, bool dst_reallocatable, int *stat,
	int src_type);
void _gfortran_caf_send_by_ref (caf_token_t token, int image_index,
	gfc_descriptor_t *src, caf_reference_t *refs, int dst_kind,
	int src_kind, bool may_require_tmp, bool dst_reallocatable, int *stat,
	int dst_type);
void _gfortran_caf_sendget_by_ref (
	caf_token_t dst_token, int dst_image_index, caf_reference_t *dst_refs,
	caf_token_t src_token, int src_image_index, caf_reference_t *src_refs,
	int dst_kind, int src_kind, bool may_require_tmp, int *dst_stat,
	int *src_stat, int dst_type, int src_type);

void _gfortran_caf_atomic_define (caf_token_t, size_t, int, void *, int *,
				  int, int);
void _gfortran_caf_atomic_ref (caf_token_t, size_t, int, void *, int *,
			       int, int);
void _gfortran_caf_atomic_cas (caf_token_t, size_t, int, void *, void *,
			       void *, int *, int, int);
void _gfortran_caf_atomic_op (int, caf_token_t, size_t, int, void *, void *,
			      int *, int, int);

void _gfortran_caf_lock (caf_token_t, size_t, int, int *, int *, char *, size_t);
void _gfortran_caf_unlock (caf_token_t, size_t, int, int *, char *, size_t);
void _gfortran_caf_event_post (caf_token_t, size_t, int, int *, char *, size_t);
void _gfortran_caf_event_wait (caf_token_t, size_t, int, int *, char *, size_t);
void _gfortran_caf_event_query (caf_token_t, size_t, int, int *, int *);

void _gfortran_caf_failed_images (gfc_descriptor_t *,
				  caf_team_t * __attribute__ ((unused)), int *);
int _gfortran_caf_image_status (int, caf_team_t * __attribute__ ((unused)));
void _gfortran_caf_stopped_images (gfc_descriptor_t *,
				   caf_team_t * __attribute__ ((unused)),
				   int *);

int _gfortran_caf_is_present (caf_token_t, int, caf_reference_t *);

#endif  /* LIBCAF_H  */
Commit	Line	Data
5092eb96	1	/* Common declarations for all of GNU Fortran libcaf implementations.
a5544970	2	Copyright (C) 2011-2019 Free Software Foundation, Inc.
5092eb96 TB	3	Contributed by Tobias Burnus <burnus@net-b.de>
	4
	5	This file is part of the GNU Fortran Coarray Runtime Library (libcaf).
	6
	7	Libcaf is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 3, or (at your option)
	10	any later version.
	11
	12	Libcaf is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	Under Section 7 of GPL version 3, you are granted additional
	18	permissions described in the GCC Runtime Library Exception, version
	19	3.1, as published by the Free Software Foundation.
	20
	21	You should have received a copy of the GNU General Public License and
	22	a copy of the GCC Runtime Library Exception along with this program;
	23	see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
	24	<http://www.gnu.org/licenses/>. */
	25
	26	#ifndef LIBCAF_H
	27	#define LIBCAF_H
	28
a8a5f4a9 TB	29	#include <stdbool.h>
a8a5f4a9 TB	30	#include <stddef.h> /* For size_t. */
cc9ae24c	31
b5116268 TB	32	#include "libgfortran.h"
	33
	34	#if 0
4054bc52 TB	35	#ifndef __GNUC__
	36	#define __attribute__(x)
	37	#define likely(x) (x)
	38	#define unlikely(x) (x)
	39	#else
	40	#define likely(x) __builtin_expect(!!(x), 1)
	41	#define unlikely(x) __builtin_expect(!!(x), 0)
	42	#endif
ef78bc3c	43	#endif
5092eb96 TB	44
5092eb96 TB	45	/* Definitions of the Fortran 2008 standard; need to kept in sync with
ef78bc3c AV	46	ISO_FORTRAN_ENV, cf. gcc/fortran/libgfortran.h. */
	47	typedef enum
	48	{
	49	CAF_STAT_UNLOCKED = 0,
	50	CAF_STAT_LOCKED,
	51	CAF_STAT_LOCKED_OTHER_IMAGE,
	52	CAF_STAT_STOPPED_IMAGE = 6000,
	53	CAF_STAT_FAILED_IMAGE = 6001
	54	}
	55	caf_stat_codes_t;
	56
5092eb96	57
ba85c8c3	58	/* Describes what type of array we are registerring. Keep in sync with
4054bc52	59	gcc/fortran/trans.h. */
cc9ae24c	60	typedef enum caf_register_t {
0a1138af DC	61	CAF_REGTYPE_COARRAY_STATIC,
0a1138af DC	62	CAF_REGTYPE_COARRAY_ALLOC,
bc0229f9 TB	63	CAF_REGTYPE_LOCK_STATIC,
bc0229f9 TB	64	CAF_REGTYPE_LOCK_ALLOC,
5df445a2 TB	65	CAF_REGTYPE_CRITICAL,
5df445a2 TB	66	CAF_REGTYPE_EVENT_STATIC,
ba85c8c3 AV	67	CAF_REGTYPE_EVENT_ALLOC,
	68	CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY,
	69	CAF_REGTYPE_COARRAY_ALLOC_ALLOCATE_ONLY
cc9ae24c TB	70	}
	71	caf_register_t;
	72
ba85c8c3 AV	73	/* Describes the action to take on _caf_deregister. Keep in sync with
	74	gcc/fortran/trans.h. */
	75	typedef enum caf_deregister_t {
	76	CAF_DEREGTYPE_COARRAY_DEREGISTER,
	77	CAF_DEREGTYPE_COARRAY_DEALLOCATE_ONLY
	78	}
	79	caf_deregister_t;
	80
a8a5f4a9	81	typedef void* caf_token_t;
ef78bc3c	82	typedef void * caf_team_t;
b5116268	83	typedef gfc_array_void gfc_descriptor_t;
a8a5f4a9	84
0a1138af DC	85	/* Linked list of static coarrays registered. */
0a1138af DC	86	typedef struct caf_static_t {
a8a5f4a9	87	caf_token_t token;
0a1138af DC	88	struct caf_static_t *prev;
	89	}
	90	caf_static_t;
	91
b5116268 TB	92	/* When there is a vector subscript in this dimension, nvec == 0, otherwise,
	93	lower_bound, upper_bound, stride contains the bounds relative to the declared
	94	bounds; kind denotes the integer kind of the elements of vector[]. */
d62cf3df	95	typedef struct caf_vector_t {
b5116268	96	size_t nvec;
d62cf3df	97	union {
b5116268 TB	98	struct {
	99	void *vector;
	100	int kind;
	101	} v;
d62cf3df TB	102	struct {
	103	ptrdiff_t lower_bound, upper_bound, stride;
	104	} triplet;
d62cf3df TB	105	} u;
	106	}
	107	caf_vector_t;
	108
3c9f5092 AV	109	typedef enum caf_ref_type_t {
	110	/* Reference a component of a derived type, either regular one or an
	111	allocatable or pointer type. For regular ones idx in caf_reference_t is
	112	set to -1. */
	113	CAF_REF_COMPONENT,
	114	/* Reference an allocatable array. */
	115	CAF_REF_ARRAY,
	116	/* Reference a non-allocatable/non-pointer array. */
	117	CAF_REF_STATIC_ARRAY
	118	} caf_ref_type_t;
	119
	120	typedef enum caf_array_ref_t {
	121	/* No array ref. This terminates the array ref. */
	122	CAF_ARR_REF_NONE = 0,
	123	/* Reference array elements given by a vector. Only for this mode
	124	caf_reference_t.u.a.dim[i].v is valid. */
	125	CAF_ARR_REF_VECTOR,
	126	/* A full array ref (:). */
	127	CAF_ARR_REF_FULL,
	128	/* Reference a range on elements given by start, end and stride. */
	129	CAF_ARR_REF_RANGE,
	130	/* Only a single item is referenced given in the start member. */
	131	CAF_ARR_REF_SINGLE,
	132	/* An array ref of the kind (i:), where i is an arbitrary valid index in the
	133	array. The index i is given in the start member. */
	134	CAF_ARR_REF_OPEN_END,
	135	/* An array ref of the kind (:i), where the lower bound of the array ref
	136	is given by the remote side. The index i is given in the end member. */
	137	CAF_ARR_REF_OPEN_START
	138	} caf_array_ref_t;
	139
	140	/* References to remote components of a derived type. */
	141	typedef struct caf_reference_t {
	142	/* A pointer to the next ref or NULL. */
	143	struct caf_reference_t *next;
	144	/* The type of the reference. */
	145	/* caf_ref_type_t, replaced by int to allow specification in fortran FE. */
	146	int type;
	147	/* The size of an item referenced in bytes. I.e. in an array ref this is
	148	the factor to advance the array pointer with to get to the next item.
	149	For component refs this gives just the size of the element referenced. */
	150	size_t item_size;
	151	union {
	152	struct {
	153	/* The offset (in bytes) of the component in the derived type. */
	154	ptrdiff_t offset;
	155	/* The offset (in bytes) to the caf_token associated with this
	156	component. NULL, when not allocatable/pointer ref. */
	157	ptrdiff_t caf_token_offset;
	158	} c;
	159	struct {
	160	/* The mode of the array ref. See CAF_ARR_REF_. /
	161	/* caf_array_ref_t, replaced by unsigend char to allow specification in
	162	fortran FE. */
	163	unsigned char mode[GFC_MAX_DIMENSIONS];
	164	/* The type of a static array. Unset for array's with descriptors. */
	165	int static_array_type;
	166	/* Subscript refs (s) or vector refs (v). */
	167	union {
	168	struct {
	169	/* The start and end boundary of the ref and the stride. */
	170	index_type start, end, stride;
	171	} s;
	172	struct {
173	/* nvec entries of kind giving the elements to reference. */
174	void *vector;
175	/* The number of entries in vector. */
176	size_t nvec;
177	/* The integer kind used for the elements in vector. */
178	int kind;
179	} v;
180	} dim[GFC_MAX_DIMENSIONS];
181	} a;
182	} u;
183	} caf_reference_t;
cc9ae24c	184
a8a5f4a9	185	void _gfortran_caf_init (int , char **);
5092eb96 TB	186	void _gfortran_caf_finalize (void);
5092eb96 TB	187
a8a5f4a9	188	int _gfortran_caf_this_image (int);
a9fe6877	189	int _gfortran_caf_num_images (int, int);
cc9ae24c	190
3c9f5092	191	void _gfortran_caf_register (size_t, caf_register_t, caf_token_t *,
3f5fabc0	192	gfc_descriptor_t , int , char *, size_t);
ba85c8c3	193	void _gfortran_caf_deregister (caf_token_t , caf_deregister_t, int , char *,
3f5fabc0	194	size_t);
cc9ae24c	195
3f5fabc0 JB	196	void _gfortran_caf_sync_all (int , char , size_t);
	197	void _gfortran_caf_sync_memory (int , char , size_t);
	198	void _gfortran_caf_sync_images (int, int[], int , char , size_t);
cc9ae24c	199
dffb1e22	200	void _gfortran_caf_stop_numeric (int, bool)
0daa7ed9	201	__attribute__ ((noreturn));
dffb1e22	202	void _gfortran_caf_stop_str (const char *, size_t, bool)
0daa7ed9	203	__attribute__ ((noreturn));
dffb1e22	204	void _gfortran_caf_error_stop_str (const char *, size_t, bool)
cc9ae24c	205	__attribute__ ((noreturn));
dffb1e22	206	void _gfortran_caf_error_stop (int, bool) __attribute__ ((noreturn));
ef78bc3c	207	void _gfortran_caf_fail_image (void) __attribute__ ((noreturn));
5092eb96	208
3f5fabc0 JB	209	void _gfortran_caf_co_broadcast (gfc_descriptor_t , int, int , char *, size_t);
	210	void _gfortran_caf_co_sum (gfc_descriptor_t , int, int , char *, size_t);
	211	void _gfortran_caf_co_min (gfc_descriptor_t , int, int , char *, int, size_t);
	212	void _gfortran_caf_co_max (gfc_descriptor_t , int, int , char *, int, size_t);
09de7c25	213	void _gfortran_caf_co_reduce (gfc_descriptor_t , void () (void , void*),
3f5fabc0	214	int, int, int , char , int, size_t);
b5116268 TB	215
b5116268 TB	216	void _gfortran_caf_get (caf_token_t, size_t, int, gfc_descriptor_t *,
9fe9a3a7 AV	217	caf_vector_t , gfc_descriptor_t , int, int, bool,
9fe9a3a7 AV	218	int *);
b5116268	219	void _gfortran_caf_send (caf_token_t, size_t, int, gfc_descriptor_t *,
9fe9a3a7 AV	220	caf_vector_t , gfc_descriptor_t , int, int, bool,
9fe9a3a7 AV	221	int *);
b5116268 TB	222	void _gfortran_caf_sendget (caf_token_t, size_t, int, gfc_descriptor_t *,
b5116268 TB	223	caf_vector_t *, caf_token_t, size_t, int,
93e2e046	224	gfc_descriptor_t , caf_vector_t , int, int, bool);
42a8246d	225
3c9f5092 AV	226	void _gfortran_caf_get_by_ref (caf_token_t token, int image_idx,
3c9f5092 AV	227	gfc_descriptor_t dst, caf_reference_t refs, int dst_kind,
87e8aa3b AV	228	int src_kind, bool may_require_tmp, bool dst_reallocatable, int *stat,
87e8aa3b AV	229	int src_type);
3c9f5092 AV	230	void _gfortran_caf_send_by_ref (caf_token_t token, int image_index,
3c9f5092 AV	231	gfc_descriptor_t src, caf_reference_t refs, int dst_kind,
87e8aa3b AV	232	int src_kind, bool may_require_tmp, bool dst_reallocatable, int *stat,
87e8aa3b AV	233	int dst_type);
3c9f5092 AV	234	void _gfortran_caf_sendget_by_ref (
	235	caf_token_t dst_token, int dst_image_index, caf_reference_t *dst_refs,
	236	caf_token_t src_token, int src_image_index, caf_reference_t *src_refs,
	237	int dst_kind, int src_kind, bool may_require_tmp, int *dst_stat,
87e8aa3b	238	int *src_stat, int dst_type, int src_type);
3c9f5092	239
42a8246d TB	240	void _gfortran_caf_atomic_define (caf_token_t, size_t, int, void , int ,
	241	int, int);
	242	void _gfortran_caf_atomic_ref (caf_token_t, size_t, int, void , int ,
	243	int, int);
	244	void _gfortran_caf_atomic_cas (caf_token_t, size_t, int, void , void ,
	245	void , int , int, int);
	246	void _gfortran_caf_atomic_op (int, caf_token_t, size_t, int, void , void ,
	247	int *, int, int);
bc0229f9	248
3f5fabc0 JB	249	void _gfortran_caf_lock (caf_token_t, size_t, int, int , int , char *, size_t);
	250	void _gfortran_caf_unlock (caf_token_t, size_t, int, int , char , size_t);
	251	void _gfortran_caf_event_post (caf_token_t, size_t, int, int , char , size_t);
	252	void _gfortran_caf_event_wait (caf_token_t, size_t, int, int , char , size_t);
5df445a2	253	void _gfortran_caf_event_query (caf_token_t, size_t, int, int , int );
bc0229f9	254
ef78bc3c AV	255	void _gfortran_caf_failed_images (gfc_descriptor_t *,
	256	caf_team_t * __attribute__ ((unused)), int *);
	257	int _gfortran_caf_image_status (int, caf_team_t * __attribute__ ((unused)));
	258	void _gfortran_caf_stopped_images (gfc_descriptor_t *,
	259	caf_team_t * __attribute__ ((unused)),
	260	int *);
	261
ba85c8c3 AV	262	int _gfortran_caf_is_present (caf_token_t, int, caf_reference_t *);
ba85c8c3 AV	263
5092eb96	264	#endif /* LIBCAF_H */