]> git.ipfire.org Git - thirdparty/gcc.git/blame - gcc/fortran/f95-lang.cc
projects / thirdparty / gcc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Rename .c files to .cc files.
[thirdparty/gcc.git] / gcc / fortran / f95-lang.cc
CommitLineData
f36327db 1/* gfortran backend interface
7adcbafe 2 Copyright (C) 2000-2022 Free Software Foundation, Inc.
6de9cd9a
DN		 3 Contributed by Paul Brook.
4
9fc4d79b 5This file is part of GCC.
6de9cd9a 6
9fc4d79b
TS		 7GCC is free software; you can redistribute it and/or modify it under
8the terms of the GNU General Public License as published by the Free
d234d788 9Software Foundation; either version 3, or (at your option) any later
9fc4d79b 10version.
6de9cd9a 11
9fc4d79b
TS		 12GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13WARRANTY; without even the implied warranty of MERCHANTABILITY or
14FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15for more details.
6de9cd9a
DN		 16
17You should have received a copy of the GNU General Public License
d234d788
NC		 18along with GCC; see the file COPYING3. If not see
19<http://www.gnu.org/licenses/>. */
6de9cd9a
DN		 20
21/* f95-lang.c-- GCC backend interface stuff */
22
23/* declare required prototypes: */
24
25#include "config.h"
d22e4895 26#include "system.h"
6de9cd9a 27#include "coretypes.h"
2adfab87
AM		 28#include "target.h"
29#include "function.h"
30#include "tree.h"
8e54f6d3 31#include "gfortran.h"
2adfab87 32#include "trans.h"
e5e391d6 33#include "stringpool.h"
2adfab87 34#include "diagnostic.h" /* For errorcount/warningcount */
6de9cd9a
DN		 35#include "langhooks.h"
36#include "langhooks-def.h"
6de9cd9a 37#include "toplev.h"
6de9cd9a 38#include "debug.h"
670637ee 39#include "cpp.h"
6de9cd9a
DN		 40#include "trans-types.h"
41#include "trans-const.h"
42
6de9cd9a
DN		 43/* Language-dependent contents of an identifier. */
44
d1b38208
TG		 45struct GTY(())
46lang_identifier {
6de9cd9a
DN		 47 struct tree_identifier common;
48};
49
50/* The resulting tree type. */
51
d1b38208 52union GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
81f653d6 53 chain_next ("CODE_CONTAINS_STRUCT (TREE_CODE (&%h.generic), TS_COMMON) ? ((union lang_tree_node *) TREE_CHAIN (&%h.generic)) : NULL")))
d1b38208 54lang_tree_node {
6de9cd9a
DN		 55 union tree_node GTY((tag ("0"),
56 desc ("tree_node_structure (&%h)"))) generic;
57 struct lang_identifier GTY((tag ("1"))) identifier;
58};
59
60/* Save and restore the variables in this file and elsewhere
61 that keep track of the progress of compilation of the current function.
62 Used for nested functions. */
63
d1b38208
TG		 64struct GTY(())
65language_function {
6de9cd9a 66 /* struct gfc_language_function base; */
6de9cd9a
DN		 67 struct binding_level *binding_level;
68};
69
6de9cd9a
DN		 70static void gfc_init_decl_processing (void);
71static void gfc_init_builtin_functions (void);
87a60f68 72static bool global_bindings_p (void);
6de9cd9a
DN		 73
74/* Each front end provides its own. */
75static bool gfc_init (void);
76static void gfc_finish (void);
b37421c6 77static void gfc_be_parse_file (void);
a64f5186 78static void gfc_init_ts (void);
87a60f68 79static tree gfc_builtin_function (tree);
6de9cd9a 80
f014c653
JJ		 81/* Handle an "omp declare target" attribute; arguments as in
82 struct attribute_spec.handler. */
83static tree
84gfc_handle_omp_declare_target_attribute (tree *, tree, tree, int, bool *)
85{
86 return NULL_TREE;
87}
88
89/* Table of valid Fortran attributes. */
90static const struct attribute_spec gfc_attribute_table[] =
91{
4849deb1
JJ		 92 /* { name, min_len, max_len, decl_req, type_req, fn_type_req,
93 affects_type_identity, handler, exclude } */
e03436e7 94 { "omp declare target", 0, -1, true, false, false, false,
4849deb1
JJ		 95 gfc_handle_omp_declare_target_attribute, NULL },
96 { "omp declare target link", 0, 0, true, false, false, false,
97 gfc_handle_omp_declare_target_attribute, NULL },
98 { "oacc function", 0, -1, true, false, false, false,
99 gfc_handle_omp_declare_target_attribute, NULL },
100 { NULL, 0, 0, false, false, false, false, NULL, NULL }
f014c653
JJ		 101};
102
6de9cd9a
DN		 103#undef LANG_HOOKS_NAME
104#undef LANG_HOOKS_INIT
105#undef LANG_HOOKS_FINISH
7a9bf9a4 106#undef LANG_HOOKS_OPTION_LANG_MASK
a75bfaa6 107#undef LANG_HOOKS_INIT_OPTIONS_STRUCT
6de9cd9a
DN		 108#undef LANG_HOOKS_INIT_OPTIONS
109#undef LANG_HOOKS_HANDLE_OPTION
110#undef LANG_HOOKS_POST_OPTIONS
6de9cd9a 111#undef LANG_HOOKS_PARSE_FILE
6de9cd9a
DN		 112#undef LANG_HOOKS_MARK_ADDRESSABLE
113#undef LANG_HOOKS_TYPE_FOR_MODE
114#undef LANG_HOOKS_TYPE_FOR_SIZE
a64f5186 115#undef LANG_HOOKS_INIT_TS
92e63bd2 116#undef LANG_HOOKS_OMP_ARRAY_DATA
08c14aaa 117#undef LANG_HOOKS_OMP_IS_ALLOCATABLE_OR_PTR
a2c26c50 118#undef LANG_HOOKS_OMP_CHECK_OPTIONAL_ARGUMENT
6c7a4dfd
JJ		 119#undef LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE
120#undef LANG_HOOKS_OMP_PREDETERMINED_SHARING
93535a2b 121#undef LANG_HOOKS_OMP_PREDETERMINED_MAPPING
79943d19 122#undef LANG_HOOKS_OMP_REPORT_DECL
cd75853e 123#undef LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR
a68ab351
JJ		 124#undef LANG_HOOKS_OMP_CLAUSE_COPY_CTOR
125#undef LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP
da6f124d 126#undef LANG_HOOKS_OMP_CLAUSE_LINEAR_CTOR
a68ab351 127#undef LANG_HOOKS_OMP_CLAUSE_DTOR
f014c653 128#undef LANG_HOOKS_OMP_FINISH_CLAUSE
1de31913
TB		 129#undef LANG_HOOKS_OMP_ALLOCATABLE_P
130#undef LANG_HOOKS_OMP_SCALAR_TARGET_P
b4c3a85b 131#undef LANG_HOOKS_OMP_SCALAR_P
6c7a4dfd
JJ		 132#undef LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR
133#undef LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE
a68ab351 134#undef LANG_HOOKS_OMP_PRIVATE_OUTER_REF
6c7a4dfd 135#undef LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES
c79efc4d 136#undef LANG_HOOKS_BUILTIN_FUNCTION
87a60f68 137#undef LANG_HOOKS_BUILTIN_FUNCTION
fad0afd7 138#undef LANG_HOOKS_GET_ARRAY_DESCR_INFO
f014c653 139#undef LANG_HOOKS_ATTRIBUTE_TABLE
6de9cd9a
DN		 140
141/* Define lang hooks. */
3135ce84 142#define LANG_HOOKS_NAME "GNU Fortran"
6de9cd9a
DN		 143#define LANG_HOOKS_INIT gfc_init
144#define LANG_HOOKS_FINISH gfc_finish
7a9bf9a4 145#define LANG_HOOKS_OPTION_LANG_MASK gfc_option_lang_mask
a75bfaa6 146#define LANG_HOOKS_INIT_OPTIONS_STRUCT gfc_init_options_struct
6de9cd9a
DN		 147#define LANG_HOOKS_INIT_OPTIONS gfc_init_options
148#define LANG_HOOKS_HANDLE_OPTION gfc_handle_option
149#define LANG_HOOKS_POST_OPTIONS gfc_post_options
6de9cd9a 150#define LANG_HOOKS_PARSE_FILE gfc_be_parse_file
a64f5186
JJ		 151#define LANG_HOOKS_TYPE_FOR_MODE gfc_type_for_mode
152#define LANG_HOOKS_TYPE_FOR_SIZE gfc_type_for_size
a64f5186 153#define LANG_HOOKS_INIT_TS gfc_init_ts
92e63bd2 154#define LANG_HOOKS_OMP_ARRAY_DATA gfc_omp_array_data
08c14aaa 155#define LANG_HOOKS_OMP_IS_ALLOCATABLE_OR_PTR gfc_omp_is_allocatable_or_ptr
a2c26c50 156#define LANG_HOOKS_OMP_CHECK_OPTIONAL_ARGUMENT gfc_omp_check_optional_argument
6c7a4dfd
JJ		 157#define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE gfc_omp_privatize_by_reference
158#define LANG_HOOKS_OMP_PREDETERMINED_SHARING gfc_omp_predetermined_sharing
93535a2b 159#define LANG_HOOKS_OMP_PREDETERMINED_MAPPING gfc_omp_predetermined_mapping
79943d19 160#define LANG_HOOKS_OMP_REPORT_DECL gfc_omp_report_decl
cd75853e 161#define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR gfc_omp_clause_default_ctor
a68ab351
JJ		 162#define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR gfc_omp_clause_copy_ctor
163#define LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP gfc_omp_clause_assign_op
da6f124d 164#define LANG_HOOKS_OMP_CLAUSE_LINEAR_CTOR gfc_omp_clause_linear_ctor
a68ab351 165#define LANG_HOOKS_OMP_CLAUSE_DTOR gfc_omp_clause_dtor
f014c653 166#define LANG_HOOKS_OMP_FINISH_CLAUSE gfc_omp_finish_clause
1de31913 167#define LANG_HOOKS_OMP_ALLOCATABLE_P gfc_omp_allocatable_p
b4c3a85b 168#define LANG_HOOKS_OMP_SCALAR_P gfc_omp_scalar_p
1de31913 169#define LANG_HOOKS_OMP_SCALAR_TARGET_P gfc_omp_scalar_target_p
6c7a4dfd
JJ		 170#define LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR gfc_omp_disregard_value_expr
171#define LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE gfc_omp_private_debug_clause
a68ab351 172#define LANG_HOOKS_OMP_PRIVATE_OUTER_REF gfc_omp_private_outer_ref
6c7a4dfd
JJ		 173#define LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES \
174 gfc_omp_firstprivatize_type_sizes
f014c653
JJ		 175#define LANG_HOOKS_BUILTIN_FUNCTION gfc_builtin_function
176#define LANG_HOOKS_GET_ARRAY_DESCR_INFO gfc_get_array_descr_info
177#define LANG_HOOKS_ATTRIBUTE_TABLE gfc_attribute_table
6de9cd9a 178
4537ec0c 179struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
6de9cd9a 180
6de9cd9a
DN		 181#define NULL_BINDING_LEVEL (struct binding_level *) NULL
182
183/* A chain of binding_level structures awaiting reuse. */
184
185static GTY(()) struct binding_level *free_binding_level;
186
602b8523 187/* True means we've initialized exception handling. */
87a60f68 188static bool gfc_eh_initialized_p;
602b8523 189
e5b16755
RG		 190/* The current translation unit. */
191static GTY(()) tree current_translation_unit;
192
602b8523 193
6de9cd9a
DN		 194static void
195gfc_create_decls (void)
196{
197 /* GCC builtins. */
198 gfc_init_builtin_functions ();
199
200 /* Runtime/IO library functions. */
201 gfc_build_builtin_function_decls ();
202
203 gfc_init_constants ();
e5b16755
RG		 204
205 /* Build our translation-unit decl. */
e5e391d6
MO		 206 current_translation_unit
207 = build_translation_unit_decl (get_identifier (main_input_filename));
881a5e60 208 debug_hooks->register_main_translation_unit (current_translation_unit);
6de9cd9a
DN		 209}
210
b251af97 211
6de9cd9a 212static void
b37421c6 213gfc_be_parse_file (void)
6de9cd9a 214{
6de9cd9a
DN		 215 gfc_create_decls ();
216 gfc_parse_file ();
217 gfc_generate_constructors ();
218
87a60f68
SB		 219 /* Clear the binding level stack. */
220 while (!global_bindings_p ())
221 poplevel (0, 0);
3aa34c1d 222
d7438551
AH		 223 /* Finalize all of the globals.
224
225 Emulated tls lowering needs to see all TLS variables before we
226 call finalize_compilation_unit. The C/C++ front ends manage this
227 by calling decl_rest_of_compilation on each global and static
228 variable as they are seen. The Fortran front end waits until
229 here. */
230 for (tree decl = getdecls (); decl ; decl = DECL_CHAIN (decl))
231 rest_of_decl_compilation (decl, true, true);
232
3aa34c1d
MLI		 233 /* Switch to the default tree diagnostics here, because there may be
234 diagnostics before gfc_finish(). */
235 gfc_diagnostics_finish ();
d7438551
AH		 236
237 global_decl_processing ();
6de9cd9a 238}
b251af97
SK		 239
240
6de9cd9a
DN		 241/* Initialize everything. */
242
243static bool
244gfc_init (void)
245{
670637ee
DF		 246 if (!gfc_cpp_enabled ())
247 {
248 linemap_add (line_table, LC_ENTER, false, gfc_source_file, 1);
249 linemap_add (line_table, LC_RENAME, false, "<built-in>", 0);
250 }
251 else
252 gfc_cpp_init_0 ();
c8cc8542 253
6de9cd9a
DN		 254 gfc_init_decl_processing ();
255 gfc_static_ctors = NULL_TREE;
256
670637ee
DF		 257 if (gfc_cpp_enabled ())
258 gfc_cpp_init ();
259
6de9cd9a
DN		 260 gfc_init_1 ();
261
83aac698
TB		 262 /* Calls exit in case of a fail. */
263 gfc_new_file ();
670637ee 264
566916e6
TB		 265 if (flag_preprocess_only)
266 return false;
267
6de9cd9a
DN		 268 return true;
269}
270
271
272static void
273gfc_finish (void)
274{
670637ee 275 gfc_cpp_done ();
6de9cd9a
DN		 276 gfc_done_1 ();
277 gfc_release_include_path ();
278 return;
279}
280
6de9cd9a
DN		 281/* These functions and variables deal with binding contours. We only
282 need these functions for the list of PARM_DECLs, but we leave the
283 functions more general; these are a simplified version of the
284 functions from GNAT. */
285
b251af97
SK		 286/* For each binding contour we allocate a binding_level structure which
287 records the entities defined or declared in that contour. Contours
288 include:
6de9cd9a
DN		 289
290 the global one
291 one for each subprogram definition
292 one for each compound statement (declare block)
293
294 Binding contours are used to create GCC tree BLOCK nodes. */
295
d1b38208
TG		 296struct GTY(())
297binding_level {
6de9cd9a
DN		 298 /* A chain of ..._DECL nodes for all variables, constants, functions,
299 parameters and type declarations. These ..._DECL nodes are chained
87a60f68 300 through the DECL_CHAIN field. */
6de9cd9a
DN		 301 tree names;
302 /* For each level (except the global one), a chain of BLOCK nodes for all
303 the levels that were entered and exited one level down from this one. */
304 tree blocks;
f7b529fa 305 /* The binding level containing this one (the enclosing binding level). */
6de9cd9a 306 struct binding_level *level_chain;
79a592e3
JJ		 307 /* True if nreverse has been already called on names; if false, names
308 are ordered from newest declaration to oldest one. */
309 bool reversed;
6de9cd9a
DN		 310};
311
312/* The binding level currently in effect. */
313static GTY(()) struct binding_level *current_binding_level = NULL;
314
315/* The outermost binding level. This binding level is created when the
316 compiler is started and it will exist through the entire compilation. */
317static GTY(()) struct binding_level *global_binding_level;
318
319/* Binding level structures are initialized by copying this one. */
79a592e3 320static struct binding_level clear_binding_level = { NULL, NULL, NULL, false };
b251af97
SK		 321
322
c99c0026 323/* Return true if we are in the global binding level. */
6de9cd9a 324
c99c0026 325bool
6de9cd9a
DN		 326global_bindings_p (void)
327{
c99c0026 328 return current_binding_level == global_binding_level;
6de9cd9a
DN		 329}
330
331tree
332getdecls (void)
333{
79a592e3
JJ		 334 if (!current_binding_level->reversed)
335 {
336 current_binding_level->reversed = true;
337 current_binding_level->names = nreverse (current_binding_level->names);
338 }
6de9cd9a
DN		 339 return current_binding_level->names;
340}
341
1cc0e193 342/* Enter a new binding level. */
6de9cd9a
DN		 343
344void
87a60f68 345pushlevel (void)
6de9cd9a 346{
766090c2 347 struct binding_level *newlevel = ggc_alloc<binding_level> ();
6de9cd9a
DN		 348
349 *newlevel = clear_binding_level;
350
351 /* Add this level to the front of the chain (stack) of levels that are
352 active. */
353 newlevel->level_chain = current_binding_level;
354 current_binding_level = newlevel;
355}
356
357/* Exit a binding level.
358 Pop the level off, and restore the state of the identifier-decl mappings
359 that were in effect when this level was entered.
360
361 If KEEP is nonzero, this level had explicit declarations, so
362 and create a "block" (a BLOCK node) for the level
363 to record its declarations and subblocks for symbol table output.
364
365 If FUNCTIONBODY is nonzero, this level is the body of a function,
366 so create a block as if KEEP were set and also clear out all
87a60f68 367 label names. */
6de9cd9a
DN		 368
369tree
87a60f68 370poplevel (int keep, int functionbody)
6de9cd9a 371{
1f2959f0 372 /* Points to a BLOCK tree node. This is the BLOCK node constructed for the
6de9cd9a
DN		 373 binding level that we are about to exit and which is returned by this
374 routine. */
375 tree block_node = NULL_TREE;
79a592e3 376 tree decl_chain = getdecls ();
6de9cd9a
DN		 377 tree subblock_chain = current_binding_level->blocks;
378 tree subblock_node;
6de9cd9a 379
6de9cd9a
DN		 380 /* If there were any declarations in the current binding level, or if this
381 binding level is a function body, or if there are any nested blocks then
382 create a BLOCK node to record them for the life of this function. */
9dcf6e73 383 if (keep || functionbody)
22e8617b 384 block_node = build_block (keep ? decl_chain : 0, subblock_chain, 0, 0);
6de9cd9a
DN		 385
386 /* Record the BLOCK node just built as the subblock its enclosing scope. */
387 for (subblock_node = subblock_chain; subblock_node;
61e46a7d 388 subblock_node = BLOCK_CHAIN (subblock_node))
6de9cd9a
DN		 389 BLOCK_SUPERCONTEXT (subblock_node) = block_node;
390
391 /* Clear out the meanings of the local variables of this level. */
392
393 for (subblock_node = decl_chain; subblock_node;
910ad8de 394 subblock_node = DECL_CHAIN (subblock_node))
6de9cd9a
DN		 395 if (DECL_NAME (subblock_node) != 0)
396 /* If the identifier was used or addressed via a local extern decl,
f7b529fa 397 don't forget that fact. */
6de9cd9a
DN		 398 if (DECL_EXTERNAL (subblock_node))
399 {
400 if (TREE_USED (subblock_node))
401 TREE_USED (DECL_NAME (subblock_node)) = 1;
402 if (TREE_ADDRESSABLE (subblock_node))
403 TREE_ADDRESSABLE (DECL_ASSEMBLER_NAME (subblock_node)) = 1;
404 }
405
406 /* Pop the current level. */
407 current_binding_level = current_binding_level->level_chain;
408
409 if (functionbody)
1cc0e193 410 /* This is the top level block of a function. */
c7c79a09 411 DECL_INITIAL (current_function_decl) = block_node;
77092cda
JJ		 412 else if (current_binding_level == global_binding_level)
413 /* When using gfc_start_block/gfc_finish_block from middle-end hooks,
df2fba9e 414 don't add newly created BLOCKs as subblocks of global_binding_level. */
77092cda 415 ;
6de9cd9a
DN		 416 else if (block_node)
417 {
9dcf6e73 418 current_binding_level->blocks
61e46a7d 419 = block_chainon (current_binding_level->blocks, block_node);
6de9cd9a
DN		 420 }
421
422 /* If we did not make a block for the level just exited, any blocks made for
423 inner levels (since they cannot be recorded as subblocks in that level)
424 must be carried forward so they will later become subblocks of something
425 else. */
426 else if (subblock_chain)
427 current_binding_level->blocks
61e46a7d 428 = block_chainon (current_binding_level->blocks, subblock_chain);
6de9cd9a
DN		 429 if (block_node)
430 TREE_USED (block_node) = 1;
431
432 return block_node;
433}
b251af97
SK		 434
435
6de9cd9a 436/* Records a ..._DECL node DECL as belonging to the current lexical scope.
f7b529fa 437 Returns the ..._DECL node. */
6de9cd9a
DN		 438
439tree
440pushdecl (tree decl)
441{
5b1cce91 442 if (global_bindings_p ())
e5b16755 443 DECL_CONTEXT (decl) = current_translation_unit;
6de9cd9a 444 else
5b1cce91
RG		 445 {
446 /* External objects aren't nested. For debug info insert a copy
447 of the decl into the binding level. */
448 if (DECL_EXTERNAL (decl))
449 {
450 tree orig = decl;
451 decl = copy_node (decl);
452 DECL_CONTEXT (orig) = NULL_TREE;
453 }
454 DECL_CONTEXT (decl) = current_function_decl;
455 }
6de9cd9a 456
87a60f68 457 /* Put the declaration on the list. */
910ad8de 458 DECL_CHAIN (decl) = current_binding_level->names;
6de9cd9a
DN		 459 current_binding_level->names = decl;
460
69de3b83 461 /* For the declaration of a type, set its name if it is not already set. */
6de9cd9a
DN		 462
463 if (TREE_CODE (decl) == TYPE_DECL && TYPE_NAME (TREE_TYPE (decl)) == 0)
464 {
465 if (DECL_SOURCE_LINE (decl) == 0)
466 TYPE_NAME (TREE_TYPE (decl)) = decl;
467 else
468 TYPE_NAME (TREE_TYPE (decl)) = DECL_NAME (decl);
469 }
470
471 return decl;
472}
473
474
475/* Like pushdecl, only it places X in GLOBAL_BINDING_LEVEL. */
476
477tree
478pushdecl_top_level (tree x)
479{
480 tree t;
481 struct binding_level *b = current_binding_level;
482
483 current_binding_level = global_binding_level;
484 t = pushdecl (x);
485 current_binding_level = b;
486 return t;
487}
488
6de9cd9a
DN		 489#ifndef CHAR_TYPE_SIZE
490#define CHAR_TYPE_SIZE BITS_PER_UNIT
491#endif
492
493#ifndef INT_TYPE_SIZE
494#define INT_TYPE_SIZE BITS_PER_WORD
495#endif
496
497#undef SIZE_TYPE
498#define SIZE_TYPE "long unsigned int"
499
500/* Create tree nodes for the basic scalar types of Fortran 95,
501 and some nodes representing standard constants (0, 1, (void *) 0).
502 Initialize the global binding level.
503 Make definitions for built-in primitive functions. */
504static void
505gfc_init_decl_processing (void)
506{
507 current_function_decl = NULL;
6de9cd9a
DN		 508 current_binding_level = NULL_BINDING_LEVEL;
509 free_binding_level = NULL_BINDING_LEVEL;
510
511 /* Make the binding_level structure for global names. We move all
512 variables that are in a COMMON block to this binding level. */
87a60f68 513 pushlevel ();
6de9cd9a
DN		 514 global_binding_level = current_binding_level;
515
516 /* Build common tree nodes. char_type_node is unsigned because we
a011cd92
BS		 517 only use it for actual characters, not for INTEGER(1). */
518 build_common_tree_nodes (false);
c1775967 519
24cc1193 520 void_list_node = build_tree_list (NULL_TREE, void_type_node);
6de9cd9a
DN		 521
522 /* Set up F95 type nodes. */
5e8e542f 523 gfc_init_kinds ();
6de9cd9a 524 gfc_init_types ();
28d0b595 525 gfc_init_c_interop_kinds ();
6de9cd9a
DN		 526}
527
b251af97 528
1f2959f0 529/* Builtin function initialization. */
6de9cd9a 530
87a60f68 531static tree
c79efc4d 532gfc_builtin_function (tree decl)
6de9cd9a 533{
6de9cd9a 534 pushdecl (decl);
6de9cd9a
DN		 535 return decl;
536}
537
0d973c0a 538/* So far we need just these 10 attribute types. */
acf0174b 539#define ATTR_NULL 0
5325296e 540#define ATTR_LEAF_LIST (ECF_LEAF)
d724c876 541#define ATTR_NOTHROW_LEAF_LIST (ECF_NOTHROW | ECF_LEAF)
46de9f5e 542#define ATTR_NOTHROW_LEAF_MALLOC_LIST (ECF_NOTHROW | ECF_LEAF | ECF_MALLOC)
d724c876 543#define ATTR_CONST_NOTHROW_LEAF_LIST (ECF_NOTHROW | ECF_LEAF | ECF_CONST)
3b7ea188 544#define ATTR_PURE_NOTHROW_LEAF_LIST (ECF_NOTHROW | ECF_LEAF | ECF_PURE)
d724c876
JJ		 545#define ATTR_NOTHROW_LIST (ECF_NOTHROW)
546#define ATTR_CONST_NOTHROW_LIST (ECF_NOTHROW | ECF_CONST)
6fcc3cac
JJ		 547#define ATTR_ALLOC_WARN_UNUSED_RESULT_SIZE_2_NOTHROW_LIST \
548 (ECF_NOTHROW)
0d973c0a
JJ		 549#define ATTR_COLD_NORETURN_NOTHROW_LEAF_LIST \
550 (ECF_COLD | ECF_NORETURN | \
551 ECF_NOTHROW | ECF_LEAF)
6de9cd9a
DN		 552
553static void
e79983f4 554gfc_define_builtin (const char *name, tree type, enum built_in_function code,
d724c876 555 const char *library_name, int attr)
6de9cd9a
DN		 556{
557 tree decl;
558
c79efc4d
RÁE		 559 decl = add_builtin_function (name, type, code, BUILT_IN_NORMAL,
560 library_name, NULL_TREE);
46de9f5e 561 set_call_expr_flags (decl, attr);
6de9cd9a 562
e79983f4 563 set_builtin_decl (code, decl, true);
6de9cd9a
DN		 564}
565
566
e8525382 567#define DO_DEFINE_MATH_BUILTIN(code, name, argtype, tbase) \
644cb69f 568 gfc_define_builtin ("__builtin_" name "l", tbase##longdouble[argtype], \
d724c876
JJ		 569 BUILT_IN_ ## code ## L, name "l", \
570 ATTR_CONST_NOTHROW_LEAF_LIST); \
e8525382 571 gfc_define_builtin ("__builtin_" name, tbase##double[argtype], \
d724c876
JJ		 572 BUILT_IN_ ## code, name, \
573 ATTR_CONST_NOTHROW_LEAF_LIST); \
e8525382 574 gfc_define_builtin ("__builtin_" name "f", tbase##float[argtype], \
d724c876
JJ		 575 BUILT_IN_ ## code ## F, name "f", \
576 ATTR_CONST_NOTHROW_LEAF_LIST);
6de9cd9a 577
e8525382
SK		 578#define DEFINE_MATH_BUILTIN(code, name, argtype) \
579 DO_DEFINE_MATH_BUILTIN (code, name, argtype, mfunc_)
580
e8525382 581#define DEFINE_MATH_BUILTIN_C(code, name, argtype) \
644cb69f
FXC		 582 DO_DEFINE_MATH_BUILTIN (code, name, argtype, mfunc_) \
583 DO_DEFINE_MATH_BUILTIN (C##code, "c" name, argtype, mfunc_c)
e8525382
SK		 584
585
586/* Create function types for builtin functions. */
587
588static void
b251af97 589build_builtin_fntypes (tree *fntype, tree type)
e8525382 590{
e8525382 591 /* type (*) (type) */
b64fca63 592 fntype[0] = build_function_type_list (type, type, NULL_TREE);
e8525382 593 /* type (*) (type, type) */
b64fca63 594 fntype[1] = build_function_type_list (type, type, type, NULL_TREE);
b5a4419c 595 /* type (*) (type, int) */
b64fca63
NF		 596 fntype[2] = build_function_type_list (type,
597 type, integer_type_node, NULL_TREE);
598 /* type (*) (void) */
599 fntype[3] = build_function_type_list (type, NULL_TREE);
db7f455b
DS		 600 /* type (*) (type, &int) */
601 fntype[4] = build_function_type_list (type, type,
b64fca63 602 build_pointer_type (integer_type_node),
b64fca63
NF		 603 NULL_TREE);
604 /* type (*) (int, type) */
605 fntype[5] = build_function_type_list (type,
606 integer_type_node, type, NULL_TREE);
e8525382
SK		 607}
608
b251af97 609
6c7a4dfd
JJ		 610static tree
611builtin_type_for_size (int size, bool unsignedp)
612{
21fa2faf 613 tree type = gfc_type_for_size (size, unsignedp);
6c7a4dfd
JJ		 614 return type ? type : error_mark_node;
615}
e8525382 616
1f2959f0 617/* Initialization of builtin function nodes. */
e8525382 618
6de9cd9a
DN		 619static void
620gfc_init_builtin_functions (void)
621{
6c7a4dfd
JJ		 622 enum builtin_type
623 {
624#define DEF_PRIMITIVE_TYPE(NAME, VALUE) NAME,
625#define DEF_FUNCTION_TYPE_0(NAME, RETURN) NAME,
626#define DEF_FUNCTION_TYPE_1(NAME, RETURN, ARG1) NAME,
627#define DEF_FUNCTION_TYPE_2(NAME, RETURN, ARG1, ARG2) NAME,
628#define DEF_FUNCTION_TYPE_3(NAME, RETURN, ARG1, ARG2, ARG3) NAME,
629#define DEF_FUNCTION_TYPE_4(NAME, RETURN, ARG1, ARG2, ARG3, ARG4) NAME,
630#define DEF_FUNCTION_TYPE_5(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5) NAME,
f6a7cffc
TS		 631#define DEF_FUNCTION_TYPE_6(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
632 ARG6) NAME,
633#define DEF_FUNCTION_TYPE_7(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
634 ARG6, ARG7) NAME,
635#define DEF_FUNCTION_TYPE_8(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
636 ARG6, ARG7, ARG8) NAME,
d9a6bd32
JJ		 637#define DEF_FUNCTION_TYPE_9(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
638 ARG6, ARG7, ARG8, ARG9) NAME,
639#define DEF_FUNCTION_TYPE_10(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
640 ARG6, ARG7, ARG8, ARG9, ARG10) NAME,
641#define DEF_FUNCTION_TYPE_11(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
642 ARG6, ARG7, ARG8, ARG9, ARG10, ARG11) NAME,
6c7a4dfd 643#define DEF_FUNCTION_TYPE_VAR_0(NAME, RETURN) NAME,
d9a6bd32 644#define DEF_FUNCTION_TYPE_VAR_1(NAME, RETURN, ARG1) NAME,
41dbbb37 645#define DEF_FUNCTION_TYPE_VAR_2(NAME, RETURN, ARG1, ARG2) NAME,
3e32ee19
NS		 646#define DEF_FUNCTION_TYPE_VAR_6(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
647 ARG6) NAME,
56a9f6bc
TS		 648#define DEF_FUNCTION_TYPE_VAR_7(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
649 ARG6, ARG7) NAME,
6c7a4dfd
JJ		 650#define DEF_POINTER_TYPE(NAME, TYPE) NAME,
651#include "types.def"
652#undef DEF_PRIMITIVE_TYPE
653#undef DEF_FUNCTION_TYPE_0
654#undef DEF_FUNCTION_TYPE_1
655#undef DEF_FUNCTION_TYPE_2
656#undef DEF_FUNCTION_TYPE_3
657#undef DEF_FUNCTION_TYPE_4
658#undef DEF_FUNCTION_TYPE_5
659#undef DEF_FUNCTION_TYPE_6
660#undef DEF_FUNCTION_TYPE_7
acf0174b 661#undef DEF_FUNCTION_TYPE_8
d9a6bd32
JJ		 662#undef DEF_FUNCTION_TYPE_9
663#undef DEF_FUNCTION_TYPE_10
664#undef DEF_FUNCTION_TYPE_11
6c7a4dfd 665#undef DEF_FUNCTION_TYPE_VAR_0
d9a6bd32 666#undef DEF_FUNCTION_TYPE_VAR_1
41dbbb37 667#undef DEF_FUNCTION_TYPE_VAR_2
3e32ee19 668#undef DEF_FUNCTION_TYPE_VAR_6
56a9f6bc 669#undef DEF_FUNCTION_TYPE_VAR_7
6c7a4dfd
JJ		 670#undef DEF_POINTER_TYPE
671 BT_LAST
672 };
6c7a4dfd 673
b5a4419c
FXC		 674 tree mfunc_float[6];
675 tree mfunc_double[6];
676 tree mfunc_longdouble[6];
677 tree mfunc_cfloat[6];
678 tree mfunc_cdouble[6];
679 tree mfunc_clongdouble[6];
3a53e165
RG		 680 tree func_cfloat_float, func_float_cfloat;
681 tree func_cdouble_double, func_double_cdouble;
682 tree func_clongdouble_longdouble, func_longdouble_clongdouble;
683 tree func_float_floatp_floatp;
684 tree func_double_doublep_doublep;
685 tree func_longdouble_longdoublep_longdoublep;
686 tree ftype, ptype;
6c7a4dfd 687 tree builtin_types[(int) BT_LAST + 1];
6de9cd9a 688
3b7ea188
FXC		 689 int attr;
690
e8525382
SK		 691 build_builtin_fntypes (mfunc_float, float_type_node);
692 build_builtin_fntypes (mfunc_double, double_type_node);
644cb69f 693 build_builtin_fntypes (mfunc_longdouble, long_double_type_node);
e8525382
SK		 694 build_builtin_fntypes (mfunc_cfloat, complex_float_type_node);
695 build_builtin_fntypes (mfunc_cdouble, complex_double_type_node);
644cb69f 696 build_builtin_fntypes (mfunc_clongdouble, complex_long_double_type_node);
e8525382 697
b64fca63
NF		 698 func_cfloat_float = build_function_type_list (float_type_node,
699 complex_float_type_node,
700 NULL_TREE);
6de9cd9a 701
b64fca63
NF		 702 func_float_cfloat = build_function_type_list (complex_float_type_node,
703 float_type_node, NULL_TREE);
3a53e165 704
b64fca63
NF		 705 func_cdouble_double = build_function_type_list (double_type_node,
706 complex_double_type_node,
707 NULL_TREE);
6de9cd9a 708
b64fca63
NF		 709 func_double_cdouble = build_function_type_list (complex_double_type_node,
710 double_type_node, NULL_TREE);
3a53e165 711
644cb69f 712 func_clongdouble_longdouble =
b64fca63
NF		 713 build_function_type_list (long_double_type_node,
714 complex_long_double_type_node, NULL_TREE);
644cb69f 715
3a53e165 716 func_longdouble_clongdouble =
b64fca63
NF		 717 build_function_type_list (complex_long_double_type_node,
718 long_double_type_node, NULL_TREE);
3a53e165
RG		 719
720 ptype = build_pointer_type (float_type_node);
3a53e165 721 func_float_floatp_floatp =
b64fca63 722 build_function_type_list (void_type_node, ptype, ptype, NULL_TREE);
3a53e165
RG		 723
724 ptype = build_pointer_type (double_type_node);
3a53e165 725 func_double_doublep_doublep =
b64fca63 726 build_function_type_list (void_type_node, ptype, ptype, NULL_TREE);
3a53e165
RG		 727
728 ptype = build_pointer_type (long_double_type_node);
3a53e165 729 func_longdouble_longdoublep_longdoublep =
b64fca63 730 build_function_type_list (void_type_node, ptype, ptype, NULL_TREE);
3a53e165 731
2921157d 732/* Non-math builtins are defined manually, so they're not included here. */
a3c85b74 733#define OTHER_BUILTIN(ID,NAME,TYPE,CONST)
2921157d 734
6de9cd9a
DN		 735#include "mathbuiltins.def"
736
644cb69f 737 gfc_define_builtin ("__builtin_roundl", mfunc_longdouble[0],
d724c876 738 BUILT_IN_ROUNDL, "roundl", ATTR_CONST_NOTHROW_LEAF_LIST);
6de9cd9a 739 gfc_define_builtin ("__builtin_round", mfunc_double[0],
d724c876 740 BUILT_IN_ROUND, "round", ATTR_CONST_NOTHROW_LEAF_LIST);
6de9cd9a 741 gfc_define_builtin ("__builtin_roundf", mfunc_float[0],
d724c876 742 BUILT_IN_ROUNDF, "roundf", ATTR_CONST_NOTHROW_LEAF_LIST);
644cb69f
FXC		 743
744 gfc_define_builtin ("__builtin_truncl", mfunc_longdouble[0],
d724c876 745 BUILT_IN_TRUNCL, "truncl", ATTR_CONST_NOTHROW_LEAF_LIST);
e743d142 746 gfc_define_builtin ("__builtin_trunc", mfunc_double[0],
d724c876 747 BUILT_IN_TRUNC, "trunc", ATTR_CONST_NOTHROW_LEAF_LIST);
e743d142 748 gfc_define_builtin ("__builtin_truncf", mfunc_float[0],
d724c876 749 BUILT_IN_TRUNCF, "truncf", ATTR_CONST_NOTHROW_LEAF_LIST);
e743d142 750
644cb69f 751 gfc_define_builtin ("__builtin_cabsl", func_clongdouble_longdouble,
d724c876 752 BUILT_IN_CABSL, "cabsl", ATTR_CONST_NOTHROW_LEAF_LIST);
ead6d15f 753 gfc_define_builtin ("__builtin_cabs", func_cdouble_double,
d724c876 754 BUILT_IN_CABS, "cabs", ATTR_CONST_NOTHROW_LEAF_LIST);
ead6d15f 755 gfc_define_builtin ("__builtin_cabsf", func_cfloat_float,
d724c876 756 BUILT_IN_CABSF, "cabsf", ATTR_CONST_NOTHROW_LEAF_LIST);
c6a912da 757
644cb69f 758 gfc_define_builtin ("__builtin_copysignl", mfunc_longdouble[1],
d724c876
JJ		 759 BUILT_IN_COPYSIGNL, "copysignl",
760 ATTR_CONST_NOTHROW_LEAF_LIST);
ead6d15f 761 gfc_define_builtin ("__builtin_copysign", mfunc_double[1],
d724c876
JJ		 762 BUILT_IN_COPYSIGN, "copysign",
763 ATTR_CONST_NOTHROW_LEAF_LIST);
ead6d15f 764 gfc_define_builtin ("__builtin_copysignf", mfunc_float[1],
d724c876
JJ		 765 BUILT_IN_COPYSIGNF, "copysignf",
766 ATTR_CONST_NOTHROW_LEAF_LIST);
58b6e047 767
b5a4419c 768 gfc_define_builtin ("__builtin_nextafterl", mfunc_longdouble[1],
d724c876
JJ		 769 BUILT_IN_NEXTAFTERL, "nextafterl",
770 ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 771 gfc_define_builtin ("__builtin_nextafter", mfunc_double[1],
d724c876
JJ		 772 BUILT_IN_NEXTAFTER, "nextafter",
773 ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 774 gfc_define_builtin ("__builtin_nextafterf", mfunc_float[1],
d724c876
JJ		 775 BUILT_IN_NEXTAFTERF, "nextafterf",
776 ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 777
3b7ea188
FXC		 778 /* Some built-ins depend on rounding mode. Depending on compilation options, they
779 will be "pure" or "const". */
780 attr = flag_rounding_math ? ATTR_PURE_NOTHROW_LEAF_LIST : ATTR_CONST_NOTHROW_LEAF_LIST;
781
782 gfc_define_builtin ("__builtin_rintl", mfunc_longdouble[0],
783 BUILT_IN_RINTL, "rintl", attr);
784 gfc_define_builtin ("__builtin_rint", mfunc_double[0],
785 BUILT_IN_RINT, "rint", attr);
786 gfc_define_builtin ("__builtin_rintf", mfunc_float[0],
787 BUILT_IN_RINTF, "rintf", attr);
788
789 gfc_define_builtin ("__builtin_remainderl", mfunc_longdouble[1],
790 BUILT_IN_REMAINDERL, "remainderl", attr);
791 gfc_define_builtin ("__builtin_remainder", mfunc_double[1],
792 BUILT_IN_REMAINDER, "remainder", attr);
793 gfc_define_builtin ("__builtin_remainderf", mfunc_float[1],
794 BUILT_IN_REMAINDERF, "remainderf", attr);
795
796 gfc_define_builtin ("__builtin_logbl", mfunc_longdouble[0],
797 BUILT_IN_LOGBL, "logbl", ATTR_CONST_NOTHROW_LEAF_LIST);
798 gfc_define_builtin ("__builtin_logb", mfunc_double[0],
799 BUILT_IN_LOGB, "logb", ATTR_CONST_NOTHROW_LEAF_LIST);
800 gfc_define_builtin ("__builtin_logbf", mfunc_float[0],
801 BUILT_IN_LOGBF, "logbf", ATTR_CONST_NOTHROW_LEAF_LIST);
802
803
b5a4419c 804 gfc_define_builtin ("__builtin_frexpl", mfunc_longdouble[4],
d724c876 805 BUILT_IN_FREXPL, "frexpl", ATTR_NOTHROW_LEAF_LIST);
b5a4419c 806 gfc_define_builtin ("__builtin_frexp", mfunc_double[4],
d724c876 807 BUILT_IN_FREXP, "frexp", ATTR_NOTHROW_LEAF_LIST);
b5a4419c 808 gfc_define_builtin ("__builtin_frexpf", mfunc_float[4],
d724c876 809 BUILT_IN_FREXPF, "frexpf", ATTR_NOTHROW_LEAF_LIST);
b5a4419c
FXC		 810
811 gfc_define_builtin ("__builtin_fabsl", mfunc_longdouble[0],
d724c876 812 BUILT_IN_FABSL, "fabsl", ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 813 gfc_define_builtin ("__builtin_fabs", mfunc_double[0],
d724c876 814 BUILT_IN_FABS, "fabs", ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 815 gfc_define_builtin ("__builtin_fabsf", mfunc_float[0],
d724c876 816 BUILT_IN_FABSF, "fabsf", ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 817
5cfd56a7 818 gfc_define_builtin ("__builtin_scalbnl", mfunc_longdouble[2],
d724c876 819 BUILT_IN_SCALBNL, "scalbnl", ATTR_CONST_NOTHROW_LEAF_LIST);
5cfd56a7 820 gfc_define_builtin ("__builtin_scalbn", mfunc_double[2],
d724c876 821 BUILT_IN_SCALBN, "scalbn", ATTR_CONST_NOTHROW_LEAF_LIST);
5cfd56a7 822 gfc_define_builtin ("__builtin_scalbnf", mfunc_float[2],
d724c876 823 BUILT_IN_SCALBNF, "scalbnf", ATTR_CONST_NOTHROW_LEAF_LIST);
b5a4419c 824
58b6e047 825 gfc_define_builtin ("__builtin_fmodl", mfunc_longdouble[1],
d724c876 826 BUILT_IN_FMODL, "fmodl", ATTR_CONST_NOTHROW_LEAF_LIST);
58b6e047 827 gfc_define_builtin ("__builtin_fmod", mfunc_double[1],
d724c876 828 BUILT_IN_FMOD, "fmod", ATTR_CONST_NOTHROW_LEAF_LIST);
58b6e047 829 gfc_define_builtin ("__builtin_fmodf", mfunc_float[1],
d724c876 830 BUILT_IN_FMODF, "fmodf", ATTR_CONST_NOTHROW_LEAF_LIST);
6de9cd9a 831
6715d47b
JB		 832 /* iround{f,,l}, lround{f,,l} and llround{f,,l} */
833 ftype = build_function_type_list (integer_type_node,
834 float_type_node, NULL_TREE);
835 gfc_define_builtin("__builtin_iroundf", ftype, BUILT_IN_IROUNDF,
836 "iroundf", ATTR_CONST_NOTHROW_LEAF_LIST);
b64fca63
NF		 837 ftype = build_function_type_list (long_integer_type_node,
838 float_type_node, NULL_TREE);
839 gfc_define_builtin ("__builtin_lroundf", ftype, BUILT_IN_LROUNDF,
d724c876 840 "lroundf", ATTR_CONST_NOTHROW_LEAF_LIST);
b64fca63
NF		 841 ftype = build_function_type_list (long_long_integer_type_node,
842 float_type_node, NULL_TREE);
843 gfc_define_builtin ("__builtin_llroundf", ftype, BUILT_IN_LLROUNDF,
d724c876 844 "llroundf", ATTR_CONST_NOTHROW_LEAF_LIST);
94f548c2 845
6715d47b
JB		 846 ftype = build_function_type_list (integer_type_node,
847 double_type_node, NULL_TREE);
848 gfc_define_builtin("__builtin_iround", ftype, BUILT_IN_IROUND,
849 "iround", ATTR_CONST_NOTHROW_LEAF_LIST);
b64fca63
NF		 850 ftype = build_function_type_list (long_integer_type_node,
851 double_type_node, NULL_TREE);
852 gfc_define_builtin ("__builtin_lround", ftype, BUILT_IN_LROUND,
d724c876 853 "lround", ATTR_CONST_NOTHROW_LEAF_LIST);
b64fca63
NF		 854 ftype = build_function_type_list (long_long_integer_type_node,
855 double_type_node, NULL_TREE);
856 gfc_define_builtin ("__builtin_llround", ftype, BUILT_IN_LLROUND,
d724c876 857 "llround", ATTR_CONST_NOTHROW_LEAF_LIST);
94f548c2 858
6715d47b
JB		 859 ftype = build_function_type_list (integer_type_node,
860 long_double_type_node, NULL_TREE);
861 gfc_define_builtin("__builtin_iroundl", ftype, BUILT_IN_IROUNDL,
862 "iroundl", ATTR_CONST_NOTHROW_LEAF_LIST);
b64fca63
NF		 863 ftype = build_function_type_list (long_integer_type_node,
864 long_double_type_node, NULL_TREE);
865 gfc_define_builtin ("__builtin_lroundl", ftype, BUILT_IN_LROUNDL,
d724c876 866 "lroundl", ATTR_CONST_NOTHROW_LEAF_LIST);
b64fca63
NF		 867 ftype = build_function_type_list (long_long_integer_type_node,
868 long_double_type_node, NULL_TREE);
869 gfc_define_builtin ("__builtin_llroundl", ftype, BUILT_IN_LLROUNDL,
d724c876 870 "llroundl", ATTR_CONST_NOTHROW_LEAF_LIST);
94f548c2 871
5b200ac2 872 /* These are used to implement the ** operator. */
644cb69f 873 gfc_define_builtin ("__builtin_powl", mfunc_longdouble[1],
d724c876 874 BUILT_IN_POWL, "powl", ATTR_CONST_NOTHROW_LEAF_LIST);
c7d78bbe 875 gfc_define_builtin ("__builtin_pow", mfunc_double[1],
d724c876 876 BUILT_IN_POW, "pow", ATTR_CONST_NOTHROW_LEAF_LIST);
c7d78bbe 877 gfc_define_builtin ("__builtin_powf", mfunc_float[1],
d724c876 878 BUILT_IN_POWF, "powf", ATTR_CONST_NOTHROW_LEAF_LIST);
fb220235 879 gfc_define_builtin ("__builtin_cpowl", mfunc_clongdouble[1],
d724c876 880 BUILT_IN_CPOWL, "cpowl", ATTR_CONST_NOTHROW_LEAF_LIST);
fb220235 881 gfc_define_builtin ("__builtin_cpow", mfunc_cdouble[1],
d724c876 882 BUILT_IN_CPOW, "cpow", ATTR_CONST_NOTHROW_LEAF_LIST);
fb220235 883 gfc_define_builtin ("__builtin_cpowf", mfunc_cfloat[1],
d724c876 884 BUILT_IN_CPOWF, "cpowf", ATTR_CONST_NOTHROW_LEAF_LIST);
5cfd56a7 885 gfc_define_builtin ("__builtin_powil", mfunc_longdouble[2],
d724c876 886 BUILT_IN_POWIL, "powil", ATTR_CONST_NOTHROW_LEAF_LIST);
5cfd56a7 887 gfc_define_builtin ("__builtin_powi", mfunc_double[2],
d724c876 888 BUILT_IN_POWI, "powi", ATTR_CONST_NOTHROW_LEAF_LIST);
5cfd56a7 889 gfc_define_builtin ("__builtin_powif", mfunc_float[2],
d724c876 890 BUILT_IN_POWIF, "powif", ATTR_CONST_NOTHROW_LEAF_LIST);
31c97dfe 891
5b200ac2 892
bae974e6 893 if (targetm.libc_has_function (function_c99_math_complex, NULL_TREE))
3a53e165
RG		 894 {
895 gfc_define_builtin ("__builtin_cbrtl", mfunc_longdouble[0],
d724c876
JJ		 896 BUILT_IN_CBRTL, "cbrtl",
897 ATTR_CONST_NOTHROW_LEAF_LIST);
3a53e165 898 gfc_define_builtin ("__builtin_cbrt", mfunc_double[0],
d724c876
JJ		 899 BUILT_IN_CBRT, "cbrt",
900 ATTR_CONST_NOTHROW_LEAF_LIST);
3a53e165 901 gfc_define_builtin ("__builtin_cbrtf", mfunc_float[0],
d724c876
JJ		 902 BUILT_IN_CBRTF, "cbrtf",
903 ATTR_CONST_NOTHROW_LEAF_LIST);
3a53e165 904 gfc_define_builtin ("__builtin_cexpil", func_longdouble_clongdouble,
d724c876
JJ		 905 BUILT_IN_CEXPIL, "cexpil",
906 ATTR_CONST_NOTHROW_LEAF_LIST);
3a53e165 907 gfc_define_builtin ("__builtin_cexpi", func_double_cdouble,
d724c876
JJ		 908 BUILT_IN_CEXPI, "cexpi",
909 ATTR_CONST_NOTHROW_LEAF_LIST);
3a53e165 910 gfc_define_builtin ("__builtin_cexpif", func_float_cfloat,
d724c876
JJ		 911 BUILT_IN_CEXPIF, "cexpif",
912 ATTR_CONST_NOTHROW_LEAF_LIST);
3a53e165
RG		 913 }
914
bae974e6 915 if (targetm.libc_has_function (function_sincos, NULL_TREE))
3a53e165
RG		 916 {
917 gfc_define_builtin ("__builtin_sincosl",
918 func_longdouble_longdoublep_longdoublep,
d724c876 919 BUILT_IN_SINCOSL, "sincosl", ATTR_NOTHROW_LEAF_LIST);
3a53e165 920 gfc_define_builtin ("__builtin_sincos", func_double_doublep_doublep,
d724c876 921 BUILT_IN_SINCOS, "sincos", ATTR_NOTHROW_LEAF_LIST);
3a53e165 922 gfc_define_builtin ("__builtin_sincosf", func_float_floatp_floatp,
d724c876 923 BUILT_IN_SINCOSF, "sincosf", ATTR_NOTHROW_LEAF_LIST);
3a53e165
RG		 924 }
925
451238b7 926 /* For LEADZ, TRAILZ, POPCNT and POPPAR. */
b64fca63
NF		 927 ftype = build_function_type_list (integer_type_node,
928 unsigned_type_node, NULL_TREE);
414f00e9 929 gfc_define_builtin ("__builtin_clz", ftype, BUILT_IN_CLZ,
d724c876 930 "__builtin_clz", ATTR_CONST_NOTHROW_LEAF_LIST);
414f00e9 931 gfc_define_builtin ("__builtin_ctz", ftype, BUILT_IN_CTZ,
d724c876 932 "__builtin_ctz", ATTR_CONST_NOTHROW_LEAF_LIST);
ad5f4de2 933 gfc_define_builtin ("__builtin_parity", ftype, BUILT_IN_PARITY,
d724c876 934 "__builtin_parity", ATTR_CONST_NOTHROW_LEAF_LIST);
ad5f4de2 935 gfc_define_builtin ("__builtin_popcount", ftype, BUILT_IN_POPCOUNT,
d724c876 936 "__builtin_popcount", ATTR_CONST_NOTHROW_LEAF_LIST);
414f00e9 937
b64fca63
NF		 938 ftype = build_function_type_list (integer_type_node,
939 long_unsigned_type_node, NULL_TREE);
940 gfc_define_builtin ("__builtin_clzl", ftype, BUILT_IN_CLZL,
d724c876 941 "__builtin_clzl", ATTR_CONST_NOTHROW_LEAF_LIST);
414f00e9 942 gfc_define_builtin ("__builtin_ctzl", ftype, BUILT_IN_CTZL,
d724c876 943 "__builtin_ctzl", ATTR_CONST_NOTHROW_LEAF_LIST);
ad5f4de2 944 gfc_define_builtin ("__builtin_parityl", ftype, BUILT_IN_PARITYL,
d724c876 945 "__builtin_parityl", ATTR_CONST_NOTHROW_LEAF_LIST);
ad5f4de2 946 gfc_define_builtin ("__builtin_popcountl", ftype, BUILT_IN_POPCOUNTL,
d724c876 947 "__builtin_popcountl", ATTR_CONST_NOTHROW_LEAF_LIST);
414f00e9 948
b64fca63
NF		 949 ftype = build_function_type_list (integer_type_node,
950 long_long_unsigned_type_node, NULL_TREE);
951 gfc_define_builtin ("__builtin_clzll", ftype, BUILT_IN_CLZLL,
d724c876 952 "__builtin_clzll", ATTR_CONST_NOTHROW_LEAF_LIST);
414f00e9 953 gfc_define_builtin ("__builtin_ctzll", ftype, BUILT_IN_CTZLL,
d724c876 954 "__builtin_ctzll", ATTR_CONST_NOTHROW_LEAF_LIST);
ad5f4de2 955 gfc_define_builtin ("__builtin_parityll", ftype, BUILT_IN_PARITYLL,
d724c876 956 "__builtin_parityll", ATTR_CONST_NOTHROW_LEAF_LIST);
ad5f4de2 957 gfc_define_builtin ("__builtin_popcountll", ftype, BUILT_IN_POPCOUNTLL,
d724c876 958 "__builtin_popcountll", ATTR_CONST_NOTHROW_LEAF_LIST);
414f00e9 959
6de9cd9a
DN		 960 /* Other builtin functions we use. */
961
b64fca63
NF		 962 ftype = build_function_type_list (long_integer_type_node,
963 long_integer_type_node,
964 long_integer_type_node, NULL_TREE);
c6a912da 965 gfc_define_builtin ("__builtin_expect", ftype, BUILT_IN_EXPECT,
d724c876 966 "__builtin_expect", ATTR_CONST_NOTHROW_LEAF_LIST);
ef9312c1 967
b64fca63
NF		 968 ftype = build_function_type_list (void_type_node,
969 pvoid_type_node, NULL_TREE);
1529b8d9 970 gfc_define_builtin ("__builtin_free", ftype, BUILT_IN_FREE,
d724c876 971 "free", ATTR_NOTHROW_LEAF_LIST);
1529b8d9 972
b64fca63
NF		 973 ftype = build_function_type_list (pvoid_type_node,
974 size_type_node, NULL_TREE);
1529b8d9 975 gfc_define_builtin ("__builtin_malloc", ftype, BUILT_IN_MALLOC,
46de9f5e 976 "malloc", ATTR_NOTHROW_LEAF_MALLOC_LIST);
1529b8d9 977
4df0f7da
TB		 978 ftype = build_function_type_list (pvoid_type_node, size_type_node,
979 size_type_node, NULL_TREE);
980 gfc_define_builtin ("__builtin_calloc", ftype, BUILT_IN_CALLOC,
46de9f5e 981 "calloc", ATTR_NOTHROW_LEAF_MALLOC_LIST);
4df0f7da
TB		 982 DECL_IS_MALLOC (builtin_decl_explicit (BUILT_IN_CALLOC)) = 1;
983
b64fca63
NF		 984 ftype = build_function_type_list (pvoid_type_node,
985 size_type_node, pvoid_type_node,
986 NULL_TREE);
4376b7cf 987 gfc_define_builtin ("__builtin_realloc", ftype, BUILT_IN_REALLOC,
d724c876 988 "realloc", ATTR_NOTHROW_LEAF_LIST);
4376b7cf 989
c541d521
FXC		 990 /* Type-generic floating-point classification built-ins. */
991
384aedfc 992 ftype = build_function_type (integer_type_node, NULL_TREE);
3b7ea188
FXC		 993 gfc_define_builtin ("__builtin_isfinite", ftype, BUILT_IN_ISFINITE,
994 "__builtin_isfinite", ATTR_CONST_NOTHROW_LEAF_LIST);
c541d521
FXC		 995 gfc_define_builtin ("__builtin_isinf", ftype, BUILT_IN_ISINF,
996 "__builtin_isinf", ATTR_CONST_NOTHROW_LEAF_LIST);
997 gfc_define_builtin ("__builtin_isinf_sign", ftype, BUILT_IN_ISINF_SIGN,
998 "__builtin_isinf_sign", ATTR_CONST_NOTHROW_LEAF_LIST);
999 gfc_define_builtin ("__builtin_isnan", ftype, BUILT_IN_ISNAN,
1000 "__builtin_isnan", ATTR_CONST_NOTHROW_LEAF_LIST);
3b7ea188
FXC		 1001 gfc_define_builtin ("__builtin_isnormal", ftype, BUILT_IN_ISNORMAL,
1002 "__builtin_isnormal", ATTR_CONST_NOTHROW_LEAF_LIST);
c541d521
FXC		 1003 gfc_define_builtin ("__builtin_signbit", ftype, BUILT_IN_SIGNBIT,
1004 "__builtin_signbit", ATTR_CONST_NOTHROW_LEAF_LIST);
3b7ea188 1005
384aedfc 1006 ftype = build_function_type (integer_type_node, NULL_TREE);
c541d521
FXC		 1007 gfc_define_builtin ("__builtin_isless", ftype, BUILT_IN_ISLESS,
1008 "__builtin_isless", ATTR_CONST_NOTHROW_LEAF_LIST);
3b7ea188
FXC		 1009 gfc_define_builtin ("__builtin_islessequal", ftype, BUILT_IN_ISLESSEQUAL,
1010 "__builtin_islessequal", ATTR_CONST_NOTHROW_LEAF_LIST);
c541d521
FXC		 1011 gfc_define_builtin ("__builtin_islessgreater", ftype, BUILT_IN_ISLESSGREATER,
1012 "__builtin_islessgreater", ATTR_CONST_NOTHROW_LEAF_LIST);
1013 gfc_define_builtin ("__builtin_isgreater", ftype, BUILT_IN_ISGREATER,
1014 "__builtin_isgreater", ATTR_CONST_NOTHROW_LEAF_LIST);
3b7ea188
FXC		 1015 gfc_define_builtin ("__builtin_isgreaterequal", ftype,
1016 BUILT_IN_ISGREATEREQUAL, "__builtin_isgreaterequal",
1017 ATTR_CONST_NOTHROW_LEAF_LIST);
c541d521
FXC		 1018 gfc_define_builtin ("__builtin_isunordered", ftype, BUILT_IN_ISUNORDERED,
1019 "__builtin_isunordered", ATTR_CONST_NOTHROW_LEAF_LIST);
3b7ea188 1020
5fcb93f1 1021
6c7a4dfd
JJ		 1022#define DEF_PRIMITIVE_TYPE(ENUM, VALUE) \
1023 builtin_types[(int) ENUM] = VALUE;
b64fca63
NF		 1024#define DEF_FUNCTION_TYPE_0(ENUM, RETURN) \
1025 builtin_types[(int) ENUM] \
1026 = build_function_type_list (builtin_types[(int) RETURN], \
1027 NULL_TREE);
6c7a4dfd
JJ		 1028#define DEF_FUNCTION_TYPE_1(ENUM, RETURN, ARG1) \
1029 builtin_types[(int) ENUM] \
b64fca63
NF		 1030 = build_function_type_list (builtin_types[(int) RETURN], \
1031 builtin_types[(int) ARG1], \
1032 NULL_TREE);
1033#define DEF_FUNCTION_TYPE_2(ENUM, RETURN, ARG1, ARG2) \
1034 builtin_types[(int) ENUM] \
1035 = build_function_type_list (builtin_types[(int) RETURN], \
1036 builtin_types[(int) ARG1], \
1037 builtin_types[(int) ARG2], \
1038 NULL_TREE);
1039#define DEF_FUNCTION_TYPE_3(ENUM, RETURN, ARG1, ARG2, ARG3) \
1040 builtin_types[(int) ENUM] \
1041 = build_function_type_list (builtin_types[(int) RETURN], \
1042 builtin_types[(int) ARG1], \
1043 builtin_types[(int) ARG2], \
1044 builtin_types[(int) ARG3], \
1045 NULL_TREE);
6c7a4dfd
JJ		 1046#define DEF_FUNCTION_TYPE_4(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4) \
1047 builtin_types[(int) ENUM] \
b64fca63
NF		 1048 = build_function_type_list (builtin_types[(int) RETURN], \
1049 builtin_types[(int) ARG1], \
1050 builtin_types[(int) ARG2], \
1051 builtin_types[(int) ARG3], \
1052 builtin_types[(int) ARG4], \
1053 NULL_TREE);
6c7a4dfd
JJ		 1054#define DEF_FUNCTION_TYPE_5(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5) \
1055 builtin_types[(int) ENUM] \
b64fca63
NF		 1056 = build_function_type_list (builtin_types[(int) RETURN], \
1057 builtin_types[(int) ARG1], \
1058 builtin_types[(int) ARG2], \
1059 builtin_types[(int) ARG3], \
1060 builtin_types[(int) ARG4], \
1061 builtin_types[(int) ARG5], \
1062 NULL_TREE);
6c7a4dfd
JJ		 1063#define DEF_FUNCTION_TYPE_6(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1064 ARG6) \
1065 builtin_types[(int) ENUM] \
b64fca63
NF		 1066 = build_function_type_list (builtin_types[(int) RETURN], \
1067 builtin_types[(int) ARG1], \
1068 builtin_types[(int) ARG2], \
1069 builtin_types[(int) ARG3], \
1070 builtin_types[(int) ARG4], \
1071 builtin_types[(int) ARG5], \
1072 builtin_types[(int) ARG6], \
1073 NULL_TREE);
6c7a4dfd
JJ		 1074#define DEF_FUNCTION_TYPE_7(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1075 ARG6, ARG7) \
1076 builtin_types[(int) ENUM] \
b64fca63
NF		 1077 = build_function_type_list (builtin_types[(int) RETURN], \
1078 builtin_types[(int) ARG1], \
1079 builtin_types[(int) ARG2], \
1080 builtin_types[(int) ARG3], \
1081 builtin_types[(int) ARG4], \
1082 builtin_types[(int) ARG5], \
1083 builtin_types[(int) ARG6], \
1084 builtin_types[(int) ARG7], \
1085 NULL_TREE);
acf0174b
JJ		 1086#define DEF_FUNCTION_TYPE_8(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1087 ARG6, ARG7, ARG8) \
1088 builtin_types[(int) ENUM] \
1089 = build_function_type_list (builtin_types[(int) RETURN], \
1090 builtin_types[(int) ARG1], \
1091 builtin_types[(int) ARG2], \
1092 builtin_types[(int) ARG3], \
1093 builtin_types[(int) ARG4], \
1094 builtin_types[(int) ARG5], \
1095 builtin_types[(int) ARG6], \
1096 builtin_types[(int) ARG7], \
1097 builtin_types[(int) ARG8], \
1098 NULL_TREE);
d9a6bd32
JJ		 1099#define DEF_FUNCTION_TYPE_9(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1100 ARG6, ARG7, ARG8, ARG9) \
1101 builtin_types[(int) ENUM] \
1102 = build_function_type_list (builtin_types[(int) RETURN], \
1103 builtin_types[(int) ARG1], \
1104 builtin_types[(int) ARG2], \
1105 builtin_types[(int) ARG3], \
1106 builtin_types[(int) ARG4], \
1107 builtin_types[(int) ARG5], \
1108 builtin_types[(int) ARG6], \
1109 builtin_types[(int) ARG7], \
1110 builtin_types[(int) ARG8], \
1111 builtin_types[(int) ARG9], \
1112 NULL_TREE);
1113#define DEF_FUNCTION_TYPE_10(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, \
1114 ARG5, ARG6, ARG7, ARG8, ARG9, ARG10) \
1115 builtin_types[(int) ENUM] \
1116 = build_function_type_list (builtin_types[(int) RETURN], \
1117 builtin_types[(int) ARG1], \
1118 builtin_types[(int) ARG2], \
1119 builtin_types[(int) ARG3], \
1120 builtin_types[(int) ARG4], \
1121 builtin_types[(int) ARG5], \
1122 builtin_types[(int) ARG6], \
1123 builtin_types[(int) ARG7], \
1124 builtin_types[(int) ARG8], \
1125 builtin_types[(int) ARG9], \
1126 builtin_types[(int) ARG10], \
1127 NULL_TREE);
1128#define DEF_FUNCTION_TYPE_11(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, \
1129 ARG5, ARG6, ARG7, ARG8, ARG9, ARG10, ARG11)\
1130 builtin_types[(int) ENUM] \
1131 = build_function_type_list (builtin_types[(int) RETURN], \
1132 builtin_types[(int) ARG1], \
1133 builtin_types[(int) ARG2], \
1134 builtin_types[(int) ARG3], \
1135 builtin_types[(int) ARG4], \
1136 builtin_types[(int) ARG5], \
1137 builtin_types[(int) ARG6], \
1138 builtin_types[(int) ARG7], \
1139 builtin_types[(int) ARG8], \
1140 builtin_types[(int) ARG9], \
1141 builtin_types[(int) ARG10], \
1142 builtin_types[(int) ARG11], \
1143 NULL_TREE);
6c7a4dfd
JJ		 1144#define DEF_FUNCTION_TYPE_VAR_0(ENUM, RETURN) \
1145 builtin_types[(int) ENUM] \
b64fca63
NF		 1146 = build_varargs_function_type_list (builtin_types[(int) RETURN], \
1147 NULL_TREE);
d9a6bd32
JJ		 1148#define DEF_FUNCTION_TYPE_VAR_1(ENUM, RETURN, ARG1) \
1149 builtin_types[(int) ENUM] \
1150 = build_varargs_function_type_list (builtin_types[(int) RETURN], \
1151 builtin_types[(int) ARG1], \
1152 NULL_TREE);
41dbbb37
TS		 1153#define DEF_FUNCTION_TYPE_VAR_2(ENUM, RETURN, ARG1, ARG2) \
1154 builtin_types[(int) ENUM] \
1155 = build_varargs_function_type_list (builtin_types[(int) RETURN], \
1156 builtin_types[(int) ARG1], \
1157 builtin_types[(int) ARG2], \
1158 NULL_TREE);
3e32ee19
NS		 1159#define DEF_FUNCTION_TYPE_VAR_6(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1160 ARG6) \
41dbbb37
TS		 1161 builtin_types[(int) ENUM] \
1162 = build_varargs_function_type_list (builtin_types[(int) RETURN], \
1163 builtin_types[(int) ARG1], \
1164 builtin_types[(int) ARG2], \
1165 builtin_types[(int) ARG3], \
1166 builtin_types[(int) ARG4], \
1167 builtin_types[(int) ARG5], \
1168 builtin_types[(int) ARG6], \
41dbbb37 1169 NULL_TREE);
3e32ee19
NS		 1170#define DEF_FUNCTION_TYPE_VAR_7(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1171 ARG6, ARG7) \
41dbbb37
TS		 1172 builtin_types[(int) ENUM] \
1173 = build_varargs_function_type_list (builtin_types[(int) RETURN], \
1174 builtin_types[(int) ARG1], \
1175 builtin_types[(int) ARG2], \
1176 builtin_types[(int) ARG3], \
1177 builtin_types[(int) ARG4], \
1178 builtin_types[(int) ARG5], \
1179 builtin_types[(int) ARG6], \
1180 builtin_types[(int) ARG7], \
41dbbb37 1181 NULL_TREE);
6c7a4dfd
JJ		 1182#define DEF_POINTER_TYPE(ENUM, TYPE) \
1183 builtin_types[(int) ENUM] \
1184 = build_pointer_type (builtin_types[(int) TYPE]);
1185#include "types.def"
1186#undef DEF_PRIMITIVE_TYPE
f6a7cffc 1187#undef DEF_FUNCTION_TYPE_0
6c7a4dfd
JJ		 1188#undef DEF_FUNCTION_TYPE_1
1189#undef DEF_FUNCTION_TYPE_2
1190#undef DEF_FUNCTION_TYPE_3
1191#undef DEF_FUNCTION_TYPE_4
1192#undef DEF_FUNCTION_TYPE_5
1193#undef DEF_FUNCTION_TYPE_6
f6a7cffc
TS		 1194#undef DEF_FUNCTION_TYPE_7
1195#undef DEF_FUNCTION_TYPE_8
d9a6bd32 1196#undef DEF_FUNCTION_TYPE_10
6c7a4dfd 1197#undef DEF_FUNCTION_TYPE_VAR_0
d9a6bd32 1198#undef DEF_FUNCTION_TYPE_VAR_1
41dbbb37 1199#undef DEF_FUNCTION_TYPE_VAR_2
3e32ee19 1200#undef DEF_FUNCTION_TYPE_VAR_6
56a9f6bc 1201#undef DEF_FUNCTION_TYPE_VAR_7
6c7a4dfd
JJ		 1202#undef DEF_POINTER_TYPE
1203 builtin_types[(int) BT_LAST] = NULL_TREE;
1204
1205 /* Initialize synchronization builtins. */
1206#undef DEF_SYNC_BUILTIN
1207#define DEF_SYNC_BUILTIN(code, name, type, attr) \
1208 gfc_define_builtin (name, builtin_types[type], code, name, \
d724c876 1209 attr);
6c7a4dfd
JJ		 1210#include "../sync-builtins.def"
1211#undef DEF_SYNC_BUILTIN
1212
41dbbb37
TS		 1213 if (flag_openacc)
1214 {
1215#undef DEF_GOACC_BUILTIN
1216#define DEF_GOACC_BUILTIN(code, name, type, attr) \
1217 gfc_define_builtin ("__builtin_" name, builtin_types[type], \
1218 code, name, attr);
1219#undef DEF_GOACC_BUILTIN_COMPILER
1220#define DEF_GOACC_BUILTIN_COMPILER(code, name, type, attr) \
1221 gfc_define_builtin (name, builtin_types[type], code, name, attr);
1f62d637
TV		 1222#undef DEF_GOACC_BUILTIN_ONLY
1223#define DEF_GOACC_BUILTIN_ONLY(code, name, type, attr) \
1224 gfc_define_builtin ("__builtin_" name, builtin_types[type], code, NULL, \
1225 attr);
41dbbb37
TS		 1226#undef DEF_GOMP_BUILTIN
1227#define DEF_GOMP_BUILTIN(code, name, type, attr) /* ignore */
1228#include "../omp-builtins.def"
1229#undef DEF_GOACC_BUILTIN
1230#undef DEF_GOACC_BUILTIN_COMPILER
1231#undef DEF_GOMP_BUILTIN
1232 }
1233
c61819ff 1234 if (flag_openmp || flag_openmp_simd || flag_tree_parallelize_loops)
6c7a4dfd 1235 {
41dbbb37
TS		 1236#undef DEF_GOACC_BUILTIN
1237#define DEF_GOACC_BUILTIN(code, name, type, attr) /* ignore */
1238#undef DEF_GOACC_BUILTIN_COMPILER
1239#define DEF_GOACC_BUILTIN_COMPILER(code, name, type, attr) /* ignore */
6c7a4dfd
JJ		 1240#undef DEF_GOMP_BUILTIN
1241#define DEF_GOMP_BUILTIN(code, name, type, attr) \
1242 gfc_define_builtin ("__builtin_" name, builtin_types[type], \
d724c876 1243 code, name, attr);
6c7a4dfd 1244#include "../omp-builtins.def"
41dbbb37
TS		 1245#undef DEF_GOACC_BUILTIN
1246#undef DEF_GOACC_BUILTIN_COMPILER
6c7a4dfd 1247#undef DEF_GOMP_BUILTIN
6fcc3cac
JJ		 1248 tree gomp_alloc = builtin_decl_explicit (BUILT_IN_GOMP_ALLOC);
1249 tree two = build_int_cst (integer_type_node, 2);
1250 DECL_ATTRIBUTES (gomp_alloc)
1251 = tree_cons (get_identifier ("warn_unused_result"), NULL_TREE,
1252 tree_cons (get_identifier ("alloc_size"),
1253 build_tree_list (NULL_TREE, two),
1254 DECL_ATTRIBUTES (gomp_alloc)));
6c7a4dfd
JJ		 1255 }
1256
1257 gfc_define_builtin ("__builtin_trap", builtin_types[BT_FN_VOID],
d724c876 1258 BUILT_IN_TRAP, NULL, ATTR_NOTHROW_LEAF_LIST);
e79983f4 1259 TREE_THIS_VOLATILE (builtin_decl_explicit (BUILT_IN_TRAP)) = 1;
6c7a4dfd 1260
b46ebd6c
JJ		 1261 ftype = build_varargs_function_type_list (ptr_type_node, const_ptr_type_node,
1262 size_type_node, NULL_TREE);
1263 gfc_define_builtin ("__builtin_assume_aligned", ftype,
1264 BUILT_IN_ASSUME_ALIGNED,
1265 "__builtin_assume_aligned",
1266 ATTR_CONST_NOTHROW_LEAF_LIST);
1267
8893239d 1268 gfc_define_builtin ("__emutls_get_address",
d724c876
JJ		 1269 builtin_types[BT_FN_PTR_PTR],
1270 BUILT_IN_EMUTLS_GET_ADDRESS,
1271 "__emutls_get_address", ATTR_CONST_NOTHROW_LEAF_LIST);
8893239d
RH		 1272 gfc_define_builtin ("__emutls_register_common",
1273 builtin_types[BT_FN_VOID_PTR_WORD_WORD_PTR],
1274 BUILT_IN_EMUTLS_REGISTER_COMMON,
d724c876 1275 "__emutls_register_common", ATTR_NOTHROW_LEAF_LIST);
8893239d 1276
384c400a 1277 build_common_builtin_nodes ();
ef9312c1 1278 targetm.init_builtins ();
6de9cd9a
DN		 1279}
1280
e8525382 1281#undef DEFINE_MATH_BUILTIN_C
6de9cd9a
DN		 1282#undef DEFINE_MATH_BUILTIN
1283
a64f5186
JJ		 1284static void
1285gfc_init_ts (void)
1286{
1287 tree_contains_struct[NAMESPACE_DECL][TS_DECL_NON_COMMON] = 1;
1288 tree_contains_struct[NAMESPACE_DECL][TS_DECL_WITH_VIS] = 1;
1289 tree_contains_struct[NAMESPACE_DECL][TS_DECL_WRTL] = 1;
1290 tree_contains_struct[NAMESPACE_DECL][TS_DECL_COMMON] = 1;
1291 tree_contains_struct[NAMESPACE_DECL][TS_DECL_MINIMAL] = 1;
1292}
1293
602b8523
TB		 1294void
1295gfc_maybe_initialize_eh (void)
1296{
1297 if (!flag_exceptions || gfc_eh_initialized_p)
1298 return;
1299
1300 gfc_eh_initialized_p = true;
602b8523
TB		 1301 using_eh_for_cleanups ();
1302}
1303
1304
6de9cd9a
DN		 1305#include "gt-fortran-f95-lang.h"
1306#include "gtype-fortran.h"
Mirror of https://gcc.gnu.org/git/gcc.git