libgfortran/caf/libcaf.h

   1 /* Common declarations for all of GNU Fortran libcaf implementations.
   2    Copyright (C) 2011
   3    Free Software Foundation, Inc.
   4    Contributed by Tobias Burnus <burnus@net-b.de>
   5
   6 This file is part of the GNU Fortran Coarray Runtime Library (libcaf).
   7
   8 Libcaf is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3, or (at your option)
  11 any later version.
  12
  13 Libcaf is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 Under Section 7 of GPL version 3, you are granted additional
  19 permissions described in the GCC Runtime Library Exception, version
  20 3.1, as published by the Free Software Foundation.
  21
  22 You should have received a copy of the GNU General Public License and
  23 a copy of the GCC Runtime Library Exception along with this program;
  24 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  25 <http://www.gnu.org/licenses/>.  */
  26
  27 #ifndef LIBCAF_H
  28 #define LIBCAF_H
  29
  30 #include <stdint.h>
  31 #include <string.h>
  32
  33 /* Definitions of the Fortran 2008 standard; need to kept in sync with
  34    ISO_FORTRAN_ENV, cf. libgfortran.h.  */
  35 #define STAT_UNLOCKED           0
  36 #define STAT_LOCKED             1
  37 #define STAT_LOCKED_OTHER_IMAGE 2
  38 #define STAT_STOPPED_IMAGE      3
  39
  40
  41 void _gfortran_caf_init (int *, char ***, int *, int *);
  42 void _gfortran_caf_finalize (void);
  43
  44 int _gfortran_caf_sync_all (char *, int);
  45 int _gfortran_caf_sync_images (int count, int images[], char *, int);
  46
  47 void _gfortran_caf_critical (void);
  48 void _gfortran_caf_end_critical (void);
  49
  50 void _gfortran_caf_error_stop_str (const char *, int32_t) __attribute__ ((noreturn));
  51 void _gfortran_caf_error_stop (int32_t) __attribute__ ((noreturn));
  52
  53 #endif  /* LIBCAF_H  */