error.c (gfc_fatal_error_1): Renamed from gfc_fatal_error.
[official-gcc.git] / libgomp / libgomp_f.h.in
blob7de9528d5666d774aa34ac83593e79891608e77b
1 /* Copyright (C) 2005-2014 Free Software Foundation, Inc.
2 Contributed by Jakub Jelinek <jakub@redhat.com>.
4 This file is part of the GNU OpenMP Library (libgomp).
6 Libgomp is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
11 Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
13 FOR A PARTICULAR PURPOSE. See the GNU General Public License for
14 more details.
16 Under Section 7 of GPL version 3, you are granted additional
17 permissions described in the GCC Runtime Library Exception, version
18 3.1, as published by the Free Software Foundation.
20 You should have received a copy of the GNU General Public License and
21 a copy of the GCC Runtime Library Exception along with this program;
22 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 <http://www.gnu.org/licenses/>. */
25 /* This file contains prototypes of functions in the external ABI.
26 This file is included by files in the testsuite. */
28 #ifndef LIBGOMP_F_H
29 #define LIBGOMP_F_H 1
31 #include "libgomp.h"
33 #if (@OMP_LOCK_SIZE@ == @OMP_LOCK_KIND@) \
34 && (@OMP_LOCK_ALIGN@ <= @OMP_LOCK_SIZE@)
35 # define OMP_LOCK_DIRECT
36 typedef omp_lock_t *omp_lock_arg_t;
37 # define omp_lock_arg(arg) (arg)
38 #else
39 typedef union { omp_lock_t *lock; uint64_t u; } *omp_lock_arg_t;
40 # define omp_lock_arg(arg) ((arg)->lock)
41 # endif
43 #if (@OMP_NEST_LOCK_SIZE@ == @OMP_NEST_LOCK_KIND@) \
44 && (@OMP_NEST_LOCK_ALIGN@ <= @OMP_NEST_LOCK_SIZE@)
45 # define OMP_NEST_LOCK_DIRECT
46 typedef omp_nest_lock_t *omp_nest_lock_arg_t;
47 # define omp_nest_lock_arg(arg) (arg)
48 #else
49 typedef union { omp_nest_lock_t *lock; uint64_t u; } *omp_nest_lock_arg_t;
50 # define omp_nest_lock_arg(arg) ((arg)->lock)
51 # endif
53 #if (@OMP_LOCK_25_SIZE@ == @OMP_LOCK_25_KIND@) \
54 && (@OMP_LOCK_25_ALIGN@ <= @OMP_LOCK_25_SIZE@)
55 # define OMP_LOCK_25_DIRECT
56 typedef omp_lock_25_t *omp_lock_25_arg_t;
57 # define omp_lock_25_arg(arg) (arg)
58 #else
59 typedef union { omp_lock_25_t *lock; uint64_t u; } *omp_lock_25_arg_t;
60 # define omp_lock_25_arg(arg) ((arg)->lock)
61 # endif
63 #if (@OMP_NEST_LOCK_25_SIZE@ == @OMP_NEST_LOCK_25_KIND@) \
64 && (@OMP_NEST_LOCK_25_ALIGN@ <= @OMP_NEST_LOCK_25_SIZE@)
65 # define OMP_NEST_LOCK_25_DIRECT
66 typedef omp_nest_lock_25_t *omp_nest_lock_25_arg_t;
67 # define omp_nest_lock_25_arg(arg) (arg)
68 #else
69 typedef union { omp_nest_lock_25_t *lock; uint64_t u; } *omp_nest_lock_25_arg_t;
70 # define omp_nest_lock_25_arg(arg) ((arg)->lock)
71 # endif
73 static inline void
74 omp_check_defines (void)
76 char test[(@OMP_LOCK_SIZE@ != sizeof (omp_lock_t)
77 || @OMP_LOCK_ALIGN@ != __alignof (omp_lock_t)
78 || @OMP_NEST_LOCK_SIZE@ != sizeof (omp_nest_lock_t)
79 || @OMP_NEST_LOCK_ALIGN@ != __alignof (omp_nest_lock_t)
80 || @OMP_LOCK_KIND@ != sizeof (*(omp_lock_arg_t) 0)
81 || @OMP_NEST_LOCK_KIND@ != sizeof (*(omp_nest_lock_arg_t) 0))
82 ? -1 : 1] __attribute__ ((__unused__));
83 char test2[(@OMP_LOCK_25_SIZE@ != sizeof (omp_lock_25_t)
84 || @OMP_LOCK_25_ALIGN@ != __alignof (omp_lock_25_t)
85 || @OMP_NEST_LOCK_25_SIZE@ != sizeof (omp_nest_lock_25_t)
86 || @OMP_NEST_LOCK_25_ALIGN@ != __alignof (omp_nest_lock_25_t)
87 || @OMP_LOCK_25_KIND@ != sizeof (*(omp_lock_25_arg_t) 0)
88 || @OMP_NEST_LOCK_25_KIND@
89 != sizeof (*(omp_nest_lock_25_arg_t) 0))
90 ? -1 : 1] __attribute__ ((__unused__));
93 #endif /* LIBGOMP_F_H */