1/* Copyright (C) 2001-2023 Free Software Foundation, Inc.
2
3This file is part of GCC.
4
5GCC is free software; you can redistribute it and/or modify it under
6the terms of the GNU General Public License as published by the Free
7Software Foundation; either version 3, or (at your option) any later
8version.
9
10GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11WARRANTY; without even the implied warranty of MERCHANTABILITY or
12FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13for more details.
14
15You should have received a copy of the GNU General Public License
16along with GCC; see the file COPYING3. If not see
17<http://www.gnu.org/licenses/>. */
18
19/* This header contains a subset of ../builtin-types.def needed for
20 Fortran frontend builtins.
21
22 Before including this header, you must define the following macros:
23
24 DEF_PRIMITIVE_TYPE (ENUM, TYPE)
25
26 The ENUM is an identifier indicating which type is being defined.
27 TYPE is an expression for a `tree' that represents the type.
28
29 DEF_FUNCTION_TYPE_0 (ENUM, RETURN)
30 DEF_FUNCTION_TYPE_1 (ENUM, RETURN, ARG1)
31 DEF_FUNCTION_TYPE_2 (ENUM, RETURN, ARG1, ARG2)
32 [...]
33
34 These macros describe function types. ENUM is as above. The
35 RETURN type is one of the enumerals already defined. ARG1, ARG2,
36 and ARG3 give the types of the arguments, similarly.
37
38 DEF_FUNCTION_TYPE_VAR_0 (ENUM, RETURN)
39
40 Similar, but for function types that take variable arguments.
41
42 DEF_POINTER_TYPE (ENUM, TYPE)
43
44 This macro describes a pointer type. ENUM is as above; TYPE is
45 the type pointed to. */
46
47DEF_PRIMITIVE_TYPE (BT_VOID, void_type_node)
48DEF_PRIMITIVE_TYPE (BT_BOOL,
49 (*lang_hooks.types.type_for_size) (BOOL_TYPE_SIZE, 1))
50DEF_PRIMITIVE_TYPE (BT_INT, integer_type_node)
51DEF_PRIMITIVE_TYPE (BT_UINT, unsigned_type_node)
52DEF_PRIMITIVE_TYPE (BT_LONG, long_integer_type_node)
53DEF_PRIMITIVE_TYPE (BT_ULONGLONG, long_long_unsigned_type_node)
54DEF_PRIMITIVE_TYPE (BT_WORD, (*lang_hooks.types.type_for_mode) (word_mode, 1))
55DEF_PRIMITIVE_TYPE (BT_SIZE, size_type_node)
56
57DEF_PRIMITIVE_TYPE (BT_I1, builtin_type_for_size (BITS_PER_UNIT*1, 1))
58DEF_PRIMITIVE_TYPE (BT_I2, builtin_type_for_size (BITS_PER_UNIT*2, 1))
59DEF_PRIMITIVE_TYPE (BT_I4, builtin_type_for_size (BITS_PER_UNIT*4, 1))
60DEF_PRIMITIVE_TYPE (BT_I8, builtin_type_for_size (BITS_PER_UNIT*8, 1))
61DEF_PRIMITIVE_TYPE (BT_I16, builtin_type_for_size (BITS_PER_UNIT*16, 1))
62
63DEF_PRIMITIVE_TYPE (BT_PTR, ptr_type_node)
64DEF_PRIMITIVE_TYPE (BT_CONST_PTR, const_ptr_type_node)
65DEF_PRIMITIVE_TYPE (BT_VOLATILE_PTR,
66 build_pointer_type
67 (build_qualified_type (void_type_node,
68 TYPE_QUAL_VOLATILE)))
69DEF_PRIMITIVE_TYPE (BT_CONST_VOLATILE_PTR,
70 build_pointer_type
71 (build_qualified_type (void_type_node,
72 TYPE_QUAL_VOLATILE|TYPE_QUAL_CONST)))
73DEF_PRIMITIVE_TYPE (BT_PTRMODE, (*lang_hooks.types.type_for_mode)(ptr_mode, 0))
74DEF_POINTER_TYPE (BT_PTR_LONG, BT_LONG)
75DEF_POINTER_TYPE (BT_PTR_ULONGLONG, BT_ULONGLONG)
76DEF_POINTER_TYPE (BT_PTR_PTR, BT_PTR)
77DEF_FUNCTION_TYPE_0 (BT_FN_BOOL, BT_BOOL)
78DEF_FUNCTION_TYPE_0 (BT_FN_PTR, BT_PTR)
79DEF_FUNCTION_TYPE_0 (BT_FN_INT, BT_INT)
80DEF_FUNCTION_TYPE_0 (BT_FN_UINT, BT_UINT)
81DEF_FUNCTION_TYPE_0 (BT_FN_VOID, BT_VOID)
82
83DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTR, BT_VOID, BT_PTR)
84DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTRPTR, BT_VOID, BT_PTR_PTR)
85DEF_FUNCTION_TYPE_1 (BT_FN_VOID_VPTR, BT_VOID, BT_VOLATILE_PTR)
86DEF_FUNCTION_TYPE_1 (BT_FN_INT_INT, BT_INT, BT_INT)
87DEF_FUNCTION_TYPE_1 (BT_FN_UINT_UINT, BT_UINT, BT_UINT)
88DEF_FUNCTION_TYPE_1 (BT_FN_PTR_PTR, BT_PTR, BT_PTR)
89DEF_FUNCTION_TYPE_1 (BT_FN_VOID_INT, BT_VOID, BT_INT)
90DEF_FUNCTION_TYPE_1 (BT_FN_VOID_BOOL, BT_VOID, BT_BOOL)
91DEF_FUNCTION_TYPE_1 (BT_FN_BOOL_INT, BT_BOOL, BT_INT)
92
93DEF_POINTER_TYPE (BT_PTR_FN_VOID_PTR, BT_FN_VOID_PTR)
94
95DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_LONGPTR_LONGPTR,
96 BT_BOOL, BT_PTR_LONG, BT_PTR_LONG)
97DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_ULONGLONGPTR_ULONGLONGPTR,
98 BT_BOOL, BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
99DEF_FUNCTION_TYPE_2 (BT_FN_I1_VPTR_I1, BT_I1, BT_VOLATILE_PTR, BT_I1)
100DEF_FUNCTION_TYPE_2 (BT_FN_I2_VPTR_I2, BT_I2, BT_VOLATILE_PTR, BT_I2)
101DEF_FUNCTION_TYPE_2 (BT_FN_I4_VPTR_I4, BT_I4, BT_VOLATILE_PTR, BT_I4)
102DEF_FUNCTION_TYPE_2 (BT_FN_I8_VPTR_I8, BT_I8, BT_VOLATILE_PTR, BT_I8)
103DEF_FUNCTION_TYPE_2 (BT_FN_I16_VPTR_I16, BT_I16, BT_VOLATILE_PTR, BT_I16)
104DEF_FUNCTION_TYPE_2 (BT_FN_VOID_PTR_PTR, BT_VOID, BT_PTR, BT_PTR)
105DEF_FUNCTION_TYPE_2 (BT_FN_I1_CONST_VPTR_INT, BT_I1, BT_CONST_VOLATILE_PTR,
106 BT_INT)
107DEF_FUNCTION_TYPE_2 (BT_FN_I2_CONST_VPTR_INT, BT_I2, BT_CONST_VOLATILE_PTR,
108 BT_INT)
109DEF_FUNCTION_TYPE_2 (BT_FN_I4_CONST_VPTR_INT, BT_I4, BT_CONST_VOLATILE_PTR,
110 BT_INT)
111DEF_FUNCTION_TYPE_2 (BT_FN_I8_CONST_VPTR_INT, BT_I8, BT_CONST_VOLATILE_PTR,
112 BT_INT)
113DEF_FUNCTION_TYPE_2 (BT_FN_I16_CONST_VPTR_INT, BT_I16, BT_CONST_VOLATILE_PTR,
114 BT_INT)
115DEF_FUNCTION_TYPE_2 (BT_FN_VOID_VPTR_INT, BT_VOID, BT_VOLATILE_PTR, BT_INT)
116DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_VPTR_INT, BT_BOOL, BT_VOLATILE_PTR, BT_INT)
117DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_SIZE_CONST_VPTR, BT_BOOL, BT_SIZE,
118 BT_CONST_VOLATILE_PTR)
119DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_INT_BOOL, BT_BOOL, BT_INT, BT_BOOL)
120DEF_FUNCTION_TYPE_2 (BT_FN_VOID_PTR_PTRMODE,
121 BT_VOID, BT_PTR, BT_PTRMODE)
122DEF_FUNCTION_TYPE_2 (BT_FN_VOID_CONST_PTR_SIZE, BT_VOID, BT_CONST_PTR, BT_SIZE)
123
124DEF_POINTER_TYPE (BT_PTR_FN_VOID_PTR_PTR, BT_FN_VOID_PTR_PTR)
125
126DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I1_I1, BT_BOOL, BT_VOLATILE_PTR,
127 BT_I1, BT_I1)
128DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I2_I2, BT_BOOL, BT_VOLATILE_PTR,
129 BT_I2, BT_I2)
130DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I4_I4, BT_BOOL, BT_VOLATILE_PTR,
131 BT_I4, BT_I4)
132DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I8_I8, BT_BOOL, BT_VOLATILE_PTR,
133 BT_I8, BT_I8)
134DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I16_I16, BT_BOOL, BT_VOLATILE_PTR,
135 BT_I16, BT_I16)
136DEF_FUNCTION_TYPE_3 (BT_FN_I1_VPTR_I1_I1, BT_I1, BT_VOLATILE_PTR, BT_I1, BT_I1)
137DEF_FUNCTION_TYPE_3 (BT_FN_I2_VPTR_I2_I2, BT_I2, BT_VOLATILE_PTR, BT_I2, BT_I2)
138DEF_FUNCTION_TYPE_3 (BT_FN_I4_VPTR_I4_I4, BT_I4, BT_VOLATILE_PTR, BT_I4, BT_I4)
139DEF_FUNCTION_TYPE_3 (BT_FN_I8_VPTR_I8_I8, BT_I8, BT_VOLATILE_PTR, BT_I8, BT_I8)
140DEF_FUNCTION_TYPE_3 (BT_FN_I16_VPTR_I16_I16, BT_I16, BT_VOLATILE_PTR,
141 BT_I16, BT_I16)
142DEF_FUNCTION_TYPE_3 (BT_FN_I1_VPTR_I1_INT, BT_I1, BT_VOLATILE_PTR, BT_I1, BT_INT)
143DEF_FUNCTION_TYPE_3 (BT_FN_I2_VPTR_I2_INT, BT_I2, BT_VOLATILE_PTR, BT_I2, BT_INT)
144DEF_FUNCTION_TYPE_3 (BT_FN_I4_VPTR_I4_INT, BT_I4, BT_VOLATILE_PTR, BT_I4, BT_INT)
145DEF_FUNCTION_TYPE_3 (BT_FN_I8_VPTR_I8_INT, BT_I8, BT_VOLATILE_PTR, BT_I8, BT_INT)
146DEF_FUNCTION_TYPE_3 (BT_FN_I16_VPTR_I16_INT, BT_I16, BT_VOLATILE_PTR, BT_I16, BT_INT)
147DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I1_INT, BT_VOID, BT_VOLATILE_PTR, BT_I1, BT_INT)
148DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I2_INT, BT_VOID, BT_VOLATILE_PTR, BT_I2, BT_INT)
149DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I4_INT, BT_VOID, BT_VOLATILE_PTR, BT_I4, BT_INT)
150DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I8_INT, BT_VOID, BT_VOLATILE_PTR, BT_I8, BT_INT)
151DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I16_INT, BT_VOID, BT_VOLATILE_PTR, BT_I16, BT_INT)
152DEF_FUNCTION_TYPE_3 (BT_FN_VOID_SIZE_SIZE_PTR, BT_VOID, BT_SIZE, BT_SIZE,
153 BT_PTR)
154DEF_FUNCTION_TYPE_3 (BT_FN_UINT_UINT_PTR_PTR, BT_UINT, BT_UINT, BT_PTR, BT_PTR)
155DEF_FUNCTION_TYPE_3 (BT_FN_PTR_SIZE_SIZE_PTRMODE,
156 BT_PTR, BT_SIZE, BT_SIZE, BT_PTRMODE)
157
158DEF_FUNCTION_TYPE_4 (BT_FN_VOID_OMPFN_PTR_UINT_UINT,
159 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
160DEF_FUNCTION_TYPE_4 (BT_FN_UINT_OMPFN_PTR_UINT_UINT,
161 BT_UINT, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
162DEF_FUNCTION_TYPE_4 (BT_FN_VOID_PTR_WORD_WORD_PTR,
163 BT_VOID, BT_PTR, BT_WORD, BT_WORD, BT_PTR)
164DEF_FUNCTION_TYPE_4 (BT_FN_VOID_SIZE_VPTR_PTR_INT, BT_VOID, BT_SIZE,
165 BT_VOLATILE_PTR, BT_PTR, BT_INT)
166DEF_FUNCTION_TYPE_4 (BT_FN_VOID_SIZE_CONST_VPTR_PTR_INT, BT_VOID, BT_SIZE,
167 BT_CONST_VOLATILE_PTR, BT_PTR, BT_INT)
168DEF_FUNCTION_TYPE_4 (BT_FN_BOOL_UINT_LONGPTR_LONGPTR_LONGPTR,
169 BT_BOOL, BT_UINT, BT_PTR_LONG, BT_PTR_LONG, BT_PTR_LONG)
170DEF_FUNCTION_TYPE_4 (BT_FN_BOOL_UINT_ULLPTR_ULLPTR_ULLPTR,
171 BT_BOOL, BT_UINT, BT_PTR_ULONGLONG, BT_PTR_ULONGLONG,
172 BT_PTR_ULONGLONG)
173DEF_FUNCTION_TYPE_4 (BT_FN_VOID_UINT_PTR_INT_PTR, BT_VOID, BT_INT, BT_PTR,
174 BT_INT, BT_PTR)
175DEF_FUNCTION_TYPE_4 (BT_FN_BOOL_UINT_UINT_UINT_BOOL,
176 BT_BOOL, BT_UINT, BT_UINT, BT_UINT, BT_BOOL)
177
178DEF_FUNCTION_TYPE_5 (BT_FN_VOID_OMPFN_PTR_UINT_UINT_UINT,
179 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT,
180 BT_UINT)
181DEF_FUNCTION_TYPE_5 (BT_FN_BOOL_LONG_LONG_LONG_LONGPTR_LONGPTR,
182 BT_BOOL, BT_LONG, BT_LONG, BT_LONG,
183 BT_PTR_LONG, BT_PTR_LONG)
184DEF_FUNCTION_TYPE_5 (BT_FN_VOID_SIZE_VPTR_PTR_PTR_INT, BT_VOID, BT_SIZE,
185 BT_VOLATILE_PTR, BT_PTR, BT_PTR, BT_INT)
186DEF_FUNCTION_TYPE_5 (BT_FN_VOID_INT_SIZE_PTR_PTR_PTR,
187 BT_VOID, BT_INT, BT_SIZE, BT_PTR, BT_PTR, BT_PTR)
188DEF_FUNCTION_TYPE_5 (BT_FN_BOOL_UINT_LONGPTR_LONG_LONGPTR_LONGPTR,
189 BT_BOOL, BT_UINT, BT_PTR_LONG, BT_LONG, BT_PTR_LONG,
190 BT_PTR_LONG)
191DEF_FUNCTION_TYPE_5 (BT_FN_BOOL_UINT_ULLPTR_ULL_ULLPTR_ULLPTR,
192 BT_BOOL, BT_UINT, BT_PTR_ULONGLONG, BT_ULONGLONG,
193 BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
194
195DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_LONG_LONG_LONG_LONG_LONGPTR_LONGPTR,
196 BT_BOOL, BT_LONG, BT_LONG, BT_LONG, BT_LONG,
197 BT_PTR_LONG, BT_PTR_LONG)
198DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULLPTR_ULLPTR,
199 BT_BOOL, BT_BOOL, BT_ULONGLONG, BT_ULONGLONG,
200 BT_ULONGLONG, BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
201DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I1_BOOL_INT_INT,
202 BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I1, BT_BOOL, BT_INT,
203 BT_INT)
204DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I2_BOOL_INT_INT,
205 BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I2, BT_BOOL, BT_INT,
206 BT_INT)
207DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I4_BOOL_INT_INT,
208 BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I4, BT_BOOL, BT_INT,
209 BT_INT)
210DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I8_BOOL_INT_INT,
211 BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I8, BT_BOOL, BT_INT,
212 BT_INT)
213DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I16_BOOL_INT_INT,
214 BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I16, BT_BOOL, BT_INT,
215 BT_INT)
216DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_SIZE_VPTR_PTR_PTR_INT_INT, BT_BOOL, BT_SIZE,
217 BT_VOLATILE_PTR, BT_PTR, BT_PTR, BT_INT, BT_INT)
218
219DEF_FUNCTION_TYPE_7 (BT_FN_VOID_OMPFN_PTR_UINT_LONG_LONG_LONG_UINT,
220 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT,
221 BT_LONG, BT_LONG, BT_LONG, BT_UINT)
222DEF_FUNCTION_TYPE_7 (BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULL_ULLPTR_ULLPTR,
223 BT_BOOL, BT_BOOL, BT_ULONGLONG, BT_ULONGLONG,
224 BT_ULONGLONG, BT_ULONGLONG,
225 BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
226DEF_FUNCTION_TYPE_7 (BT_FN_VOID_INT_SIZE_PTR_PTR_PTR_UINT_PTR,
227 BT_VOID, BT_INT, BT_SIZE, BT_PTR, BT_PTR, BT_PTR, BT_UINT,
228 BT_PTR)
229
230DEF_FUNCTION_TYPE_8 (BT_FN_VOID_OMPFN_PTR_UINT_LONG_LONG_LONG_LONG_UINT,
231 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT,
232 BT_LONG, BT_LONG, BT_LONG, BT_LONG, BT_UINT)
233DEF_FUNCTION_TYPE_8 (BT_FN_BOOL_UINT_LONGPTR_LONG_LONG_LONGPTR_LONGPTR_PTR_PTR,
234 BT_BOOL, BT_UINT, BT_PTR_LONG, BT_LONG, BT_LONG,
235 BT_PTR_LONG, BT_PTR_LONG, BT_PTR, BT_PTR)
236DEF_FUNCTION_TYPE_8 (BT_FN_BOOL_UINT_ULLPTR_LONG_ULL_ULLPTR_ULLPTR_PTR_PTR,
237 BT_BOOL, BT_UINT, BT_PTR_ULONGLONG, BT_LONG, BT_ULONGLONG,
238 BT_PTR_ULONGLONG, BT_PTR_ULONGLONG, BT_PTR, BT_PTR)
239
240DEF_FUNCTION_TYPE_9 (BT_FN_VOID_INT_OMPFN_SIZE_PTR_PTR_PTR_UINT_PTR_PTR,
241 BT_VOID, BT_INT, BT_PTR_FN_VOID_PTR, BT_SIZE, BT_PTR,
242 BT_PTR, BT_PTR, BT_UINT, BT_PTR, BT_PTR)
243DEF_FUNCTION_TYPE_9 (BT_FN_BOOL_LONG_LONG_LONG_LONG_LONG_LONGPTR_LONGPTR_PTR_PTR,
244 BT_BOOL, BT_LONG, BT_LONG, BT_LONG, BT_LONG, BT_LONG,
245 BT_PTR_LONG, BT_PTR_LONG, BT_PTR, BT_PTR)
246
247DEF_FUNCTION_TYPE_10 (BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_BOOL_UINT_PTR_INT_PTR,
248 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR,
249 BT_PTR_FN_VOID_PTR_PTR, BT_LONG, BT_LONG,
250 BT_BOOL, BT_UINT, BT_PTR, BT_INT, BT_PTR)
251DEF_FUNCTION_TYPE_10 (BT_FN_BOOL_BOOL_ULL_ULL_ULL_LONG_ULL_ULLPTR_ULLPTR_PTR_PTR,
252 BT_BOOL, BT_BOOL, BT_ULONGLONG, BT_ULONGLONG,
253 BT_ULONGLONG, BT_LONG, BT_ULONGLONG, BT_PTR_ULONGLONG,
254 BT_PTR_ULONGLONG, BT_PTR, BT_PTR)
255
256DEF_FUNCTION_TYPE_11 (BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_UINT_LONG_INT_LONG_LONG_LONG,
257 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR,
258 BT_PTR_FN_VOID_PTR_PTR, BT_LONG, BT_LONG,
259 BT_UINT, BT_LONG, BT_INT, BT_LONG, BT_LONG, BT_LONG)
260DEF_FUNCTION_TYPE_11 (BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_UINT_LONG_INT_ULL_ULL_ULL,
261 BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR,
262 BT_PTR_FN_VOID_PTR_PTR, BT_LONG, BT_LONG,
263 BT_UINT, BT_LONG, BT_INT,
264 BT_ULONGLONG, BT_ULONGLONG, BT_ULONGLONG)
265
266DEF_FUNCTION_TYPE_VAR_0 (BT_FN_VOID_VAR, BT_VOID)
267
268DEF_FUNCTION_TYPE_VAR_1 (BT_FN_VOID_LONG_VAR,
269 BT_VOID, BT_LONG)
270DEF_FUNCTION_TYPE_VAR_1 (BT_FN_VOID_ULL_VAR,
271 BT_VOID, BT_ULONGLONG)
272
273DEF_FUNCTION_TYPE_VAR_2 (BT_FN_VOID_INT_INT_VAR, BT_VOID, BT_INT, BT_INT)
274
275DEF_FUNCTION_TYPE_VAR_7 (BT_FN_VOID_INT_SIZE_PTR_PTR_PTR_INT_INT_VAR,
276 BT_VOID, BT_INT, BT_SIZE, BT_PTR, BT_PTR,
277 BT_PTR, BT_INT, BT_INT)
278
279DEF_FUNCTION_TYPE_VAR_6 (BT_FN_VOID_INT_OMPFN_SIZE_PTR_PTR_PTR_VAR,
280 BT_VOID, BT_INT, BT_PTR_FN_VOID_PTR, BT_SIZE,
281 BT_PTR, BT_PTR, BT_PTR)
282

source code of gcc/fortran/types.def