1 /* gfortran backend interface
2 Copyright (C) 2000-2014 Free Software Foundation, Inc.
3 Contributed by Paul Brook.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
21 /* f95-lang.c-- GCC backend interface stuff */
23 /* declare required prototypes: */
29 #include "coretypes.h"
32 #include "langhooks.h"
33 #include "langhooks-def.h"
41 #include "diagnostic.h"
47 #include "trans-types.h"
48 #include "trans-const.h"
50 /* Language-dependent contents of an identifier. */
54 struct tree_identifier common
;
57 /* The resulting tree type. */
59 union GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
60 chain_next ("CODE_CONTAINS_STRUCT (TREE_CODE (&%h.generic), TS_COMMON) ? ((union lang_tree_node *) TREE_CHAIN (&%h.generic)) : NULL")))
62 union tree_node
GTY((tag ("0"),
63 desc ("tree_node_structure (&%h)"))) generic
;
64 struct lang_identifier
GTY((tag ("1"))) identifier
;
67 /* Save and restore the variables in this file and elsewhere
68 that keep track of the progress of compilation of the current function.
69 Used for nested functions. */
73 /* struct gfc_language_function base; */
74 struct binding_level
*binding_level
;
77 static void gfc_init_decl_processing (void);
78 static void gfc_init_builtin_functions (void);
79 static bool global_bindings_p (void);
81 /* Each front end provides its own. */
82 static bool gfc_init (void);
83 static void gfc_finish (void);
84 static void gfc_write_global_declarations (void);
85 static void gfc_be_parse_file (void);
86 static alias_set_type
gfc_get_alias_set (tree
);
87 static void gfc_init_ts (void);
88 static tree
gfc_builtin_function (tree
);
90 #undef LANG_HOOKS_NAME
91 #undef LANG_HOOKS_INIT
92 #undef LANG_HOOKS_FINISH
93 #undef LANG_HOOKS_WRITE_GLOBALS
94 #undef LANG_HOOKS_OPTION_LANG_MASK
95 #undef LANG_HOOKS_INIT_OPTIONS_STRUCT
96 #undef LANG_HOOKS_INIT_OPTIONS
97 #undef LANG_HOOKS_HANDLE_OPTION
98 #undef LANG_HOOKS_POST_OPTIONS
99 #undef LANG_HOOKS_PARSE_FILE
100 #undef LANG_HOOKS_MARK_ADDRESSABLE
101 #undef LANG_HOOKS_TYPE_FOR_MODE
102 #undef LANG_HOOKS_TYPE_FOR_SIZE
103 #undef LANG_HOOKS_GET_ALIAS_SET
104 #undef LANG_HOOKS_INIT_TS
105 #undef LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE
106 #undef LANG_HOOKS_OMP_PREDETERMINED_SHARING
107 #undef LANG_HOOKS_OMP_REPORT_DECL
108 #undef LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR
109 #undef LANG_HOOKS_OMP_CLAUSE_COPY_CTOR
110 #undef LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP
111 #undef LANG_HOOKS_OMP_CLAUSE_DTOR
112 #undef LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR
113 #undef LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE
114 #undef LANG_HOOKS_OMP_PRIVATE_OUTER_REF
115 #undef LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES
116 #undef LANG_HOOKS_BUILTIN_FUNCTION
117 #undef LANG_HOOKS_BUILTIN_FUNCTION
118 #undef LANG_HOOKS_GET_ARRAY_DESCR_INFO
120 /* Define lang hooks. */
121 #define LANG_HOOKS_NAME "GNU Fortran"
122 #define LANG_HOOKS_INIT gfc_init
123 #define LANG_HOOKS_FINISH gfc_finish
124 #define LANG_HOOKS_WRITE_GLOBALS gfc_write_global_declarations
125 #define LANG_HOOKS_OPTION_LANG_MASK gfc_option_lang_mask
126 #define LANG_HOOKS_INIT_OPTIONS_STRUCT gfc_init_options_struct
127 #define LANG_HOOKS_INIT_OPTIONS gfc_init_options
128 #define LANG_HOOKS_HANDLE_OPTION gfc_handle_option
129 #define LANG_HOOKS_POST_OPTIONS gfc_post_options
130 #define LANG_HOOKS_PARSE_FILE gfc_be_parse_file
131 #define LANG_HOOKS_TYPE_FOR_MODE gfc_type_for_mode
132 #define LANG_HOOKS_TYPE_FOR_SIZE gfc_type_for_size
133 #define LANG_HOOKS_GET_ALIAS_SET gfc_get_alias_set
134 #define LANG_HOOKS_INIT_TS gfc_init_ts
135 #define LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE gfc_omp_privatize_by_reference
136 #define LANG_HOOKS_OMP_PREDETERMINED_SHARING gfc_omp_predetermined_sharing
137 #define LANG_HOOKS_OMP_REPORT_DECL gfc_omp_report_decl
138 #define LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR gfc_omp_clause_default_ctor
139 #define LANG_HOOKS_OMP_CLAUSE_COPY_CTOR gfc_omp_clause_copy_ctor
140 #define LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP gfc_omp_clause_assign_op
141 #define LANG_HOOKS_OMP_CLAUSE_DTOR gfc_omp_clause_dtor
142 #define LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR gfc_omp_disregard_value_expr
143 #define LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE gfc_omp_private_debug_clause
144 #define LANG_HOOKS_OMP_PRIVATE_OUTER_REF gfc_omp_private_outer_ref
145 #define LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES \
146 gfc_omp_firstprivatize_type_sizes
147 #define LANG_HOOKS_BUILTIN_FUNCTION gfc_builtin_function
148 #define LANG_HOOKS_GET_ARRAY_DESCR_INFO gfc_get_array_descr_info
150 struct lang_hooks lang_hooks
= LANG_HOOKS_INITIALIZER
;
152 #define NULL_BINDING_LEVEL (struct binding_level *) NULL
154 /* A chain of binding_level structures awaiting reuse. */
156 static GTY(()) struct binding_level
*free_binding_level
;
158 /* True means we've initialized exception handling. */
159 static bool gfc_eh_initialized_p
;
161 /* The current translation unit. */
162 static GTY(()) tree current_translation_unit
;
166 gfc_create_decls (void)
169 gfc_init_builtin_functions ();
171 /* Runtime/IO library functions. */
172 gfc_build_builtin_function_decls ();
174 gfc_init_constants ();
176 /* Build our translation-unit decl. */
177 current_translation_unit
= build_translation_unit_decl (NULL_TREE
);
182 gfc_be_parse_file (void)
189 gfc_generate_constructors ();
191 /* Tell the frontend about any errors. */
192 gfc_get_errors (&warnings
, &errors
);
193 errorcount
+= errors
;
194 warningcount
+= warnings
;
196 /* Clear the binding level stack. */
197 while (!global_bindings_p ())
202 /* Initialize everything. */
207 if (!gfc_cpp_enabled ())
209 linemap_add (line_table
, LC_ENTER
, false, gfc_source_file
, 1);
210 linemap_add (line_table
, LC_RENAME
, false, "<built-in>", 0);
215 gfc_init_decl_processing ();
216 gfc_static_ctors
= NULL_TREE
;
218 if (gfc_cpp_enabled ())
223 if (!gfc_new_file ())
224 fatal_error ("can't open input file: %s", gfc_source_file
);
235 gfc_release_include_path ();
239 /* ??? This is something of a hack.
241 Emulated tls lowering needs to see all TLS variables before we call
242 finalize_compilation_unit. The C/C++ front ends manage this
243 by calling decl_rest_of_compilation on each global and static variable
244 as they are seen. The Fortran front end waits until this hook.
246 A Correct solution is for finalize_compilation_unit not to be
247 called during the WRITE_GLOBALS langhook, and have that hook only do what
248 its name suggests and write out globals. But the C++ and Java front ends
249 have (unspecified) problems with aliases that gets in the way. It has
250 been suggested that these problems would be solved by completing the
251 conversion to cgraph-based aliases. */
254 gfc_write_global_declarations (void)
258 /* Finalize all of the globals. */
259 for (decl
= getdecls(); decl
; decl
= DECL_CHAIN (decl
))
260 rest_of_decl_compilation (decl
, true, true);
262 write_global_declarations ();
265 /* These functions and variables deal with binding contours. We only
266 need these functions for the list of PARM_DECLs, but we leave the
267 functions more general; these are a simplified version of the
268 functions from GNAT. */
270 /* For each binding contour we allocate a binding_level structure which
271 records the entities defined or declared in that contour. Contours
275 one for each subprogram definition
276 one for each compound statement (declare block)
278 Binding contours are used to create GCC tree BLOCK nodes. */
282 /* A chain of ..._DECL nodes for all variables, constants, functions,
283 parameters and type declarations. These ..._DECL nodes are chained
284 through the DECL_CHAIN field. */
286 /* For each level (except the global one), a chain of BLOCK nodes for all
287 the levels that were entered and exited one level down from this one. */
289 /* The binding level containing this one (the enclosing binding level). */
290 struct binding_level
*level_chain
;
293 /* The binding level currently in effect. */
294 static GTY(()) struct binding_level
*current_binding_level
= NULL
;
296 /* The outermost binding level. This binding level is created when the
297 compiler is started and it will exist through the entire compilation. */
298 static GTY(()) struct binding_level
*global_binding_level
;
300 /* Binding level structures are initialized by copying this one. */
301 static struct binding_level clear_binding_level
= { NULL
, NULL
, NULL
};
304 /* Return true if we are in the global binding level. */
307 global_bindings_p (void)
309 return current_binding_level
== global_binding_level
;
315 return current_binding_level
->names
;
318 /* Enter a new binding level. */
323 struct binding_level
*newlevel
= ggc_alloc_binding_level ();
325 *newlevel
= clear_binding_level
;
327 /* Add this level to the front of the chain (stack) of levels that are
329 newlevel
->level_chain
= current_binding_level
;
330 current_binding_level
= newlevel
;
333 /* Exit a binding level.
334 Pop the level off, and restore the state of the identifier-decl mappings
335 that were in effect when this level was entered.
337 If KEEP is nonzero, this level had explicit declarations, so
338 and create a "block" (a BLOCK node) for the level
339 to record its declarations and subblocks for symbol table output.
341 If FUNCTIONBODY is nonzero, this level is the body of a function,
342 so create a block as if KEEP were set and also clear out all
346 poplevel (int keep
, int functionbody
)
348 /* Points to a BLOCK tree node. This is the BLOCK node constructed for the
349 binding level that we are about to exit and which is returned by this
351 tree block_node
= NULL_TREE
;
352 tree decl_chain
= current_binding_level
->names
;
353 tree subblock_chain
= current_binding_level
->blocks
;
356 /* If there were any declarations in the current binding level, or if this
357 binding level is a function body, or if there are any nested blocks then
358 create a BLOCK node to record them for the life of this function. */
359 if (keep
|| functionbody
)
360 block_node
= build_block (keep
? decl_chain
: 0, subblock_chain
, 0, 0);
362 /* Record the BLOCK node just built as the subblock its enclosing scope. */
363 for (subblock_node
= subblock_chain
; subblock_node
;
364 subblock_node
= BLOCK_CHAIN (subblock_node
))
365 BLOCK_SUPERCONTEXT (subblock_node
) = block_node
;
367 /* Clear out the meanings of the local variables of this level. */
369 for (subblock_node
= decl_chain
; subblock_node
;
370 subblock_node
= DECL_CHAIN (subblock_node
))
371 if (DECL_NAME (subblock_node
) != 0)
372 /* If the identifier was used or addressed via a local extern decl,
373 don't forget that fact. */
374 if (DECL_EXTERNAL (subblock_node
))
376 if (TREE_USED (subblock_node
))
377 TREE_USED (DECL_NAME (subblock_node
)) = 1;
378 if (TREE_ADDRESSABLE (subblock_node
))
379 TREE_ADDRESSABLE (DECL_ASSEMBLER_NAME (subblock_node
)) = 1;
382 /* Pop the current level. */
383 current_binding_level
= current_binding_level
->level_chain
;
386 /* This is the top level block of a function. */
387 DECL_INITIAL (current_function_decl
) = block_node
;
388 else if (current_binding_level
== global_binding_level
)
389 /* When using gfc_start_block/gfc_finish_block from middle-end hooks,
390 don't add newly created BLOCKs as subblocks of global_binding_level. */
394 current_binding_level
->blocks
395 = block_chainon (current_binding_level
->blocks
, block_node
);
398 /* If we did not make a block for the level just exited, any blocks made for
399 inner levels (since they cannot be recorded as subblocks in that level)
400 must be carried forward so they will later become subblocks of something
402 else if (subblock_chain
)
403 current_binding_level
->blocks
404 = block_chainon (current_binding_level
->blocks
, subblock_chain
);
406 TREE_USED (block_node
) = 1;
412 /* Records a ..._DECL node DECL as belonging to the current lexical scope.
413 Returns the ..._DECL node. */
418 if (global_bindings_p ())
419 DECL_CONTEXT (decl
) = current_translation_unit
;
422 /* External objects aren't nested. For debug info insert a copy
423 of the decl into the binding level. */
424 if (DECL_EXTERNAL (decl
))
427 decl
= copy_node (decl
);
428 DECL_CONTEXT (orig
) = NULL_TREE
;
430 DECL_CONTEXT (decl
) = current_function_decl
;
433 /* Put the declaration on the list. */
434 DECL_CHAIN (decl
) = current_binding_level
->names
;
435 current_binding_level
->names
= decl
;
437 /* For the declaration of a type, set its name if it is not already set. */
439 if (TREE_CODE (decl
) == TYPE_DECL
&& TYPE_NAME (TREE_TYPE (decl
)) == 0)
441 if (DECL_SOURCE_LINE (decl
) == 0)
442 TYPE_NAME (TREE_TYPE (decl
)) = decl
;
444 TYPE_NAME (TREE_TYPE (decl
)) = DECL_NAME (decl
);
451 /* Like pushdecl, only it places X in GLOBAL_BINDING_LEVEL. */
454 pushdecl_top_level (tree x
)
457 struct binding_level
*b
= current_binding_level
;
459 current_binding_level
= global_binding_level
;
461 current_binding_level
= b
;
465 #ifndef CHAR_TYPE_SIZE
466 #define CHAR_TYPE_SIZE BITS_PER_UNIT
469 #ifndef INT_TYPE_SIZE
470 #define INT_TYPE_SIZE BITS_PER_WORD
474 #define SIZE_TYPE "long unsigned int"
476 /* Create tree nodes for the basic scalar types of Fortran 95,
477 and some nodes representing standard constants (0, 1, (void *) 0).
478 Initialize the global binding level.
479 Make definitions for built-in primitive functions. */
481 gfc_init_decl_processing (void)
483 current_function_decl
= NULL
;
484 current_binding_level
= NULL_BINDING_LEVEL
;
485 free_binding_level
= NULL_BINDING_LEVEL
;
487 /* Make the binding_level structure for global names. We move all
488 variables that are in a COMMON block to this binding level. */
490 global_binding_level
= current_binding_level
;
492 /* Build common tree nodes. char_type_node is unsigned because we
493 only use it for actual characters, not for INTEGER(1). Also, we
494 want double_type_node to actually have double precision. */
495 build_common_tree_nodes (false, false);
497 void_list_node
= build_tree_list (NULL_TREE
, void_type_node
);
499 /* Set up F95 type nodes. */
502 gfc_init_c_interop_kinds ();
506 /* Return the typed-based alias set for T, which may be an expression
507 or a type. Return -1 if we don't do anything special. */
509 static alias_set_type
510 gfc_get_alias_set (tree t
)
514 /* Permit type-punning when accessing an EQUIVALENCEd variable or
515 mixed type entry master's return value. */
516 for (u
= t
; handled_component_p (u
); u
= TREE_OPERAND (u
, 0))
517 if (TREE_CODE (u
) == COMPONENT_REF
518 && TREE_CODE (TREE_TYPE (TREE_OPERAND (u
, 0))) == UNION_TYPE
)
524 /* Builtin function initialization. */
527 gfc_builtin_function (tree decl
)
533 /* So far we need just these 7 attribute types. */
535 #define ATTR_LEAF_LIST (ECF_LEAF)
536 #define ATTR_NOTHROW_LEAF_LIST (ECF_NOTHROW | ECF_LEAF)
537 #define ATTR_NOTHROW_LEAF_MALLOC_LIST (ECF_NOTHROW | ECF_LEAF | ECF_MALLOC)
538 #define ATTR_CONST_NOTHROW_LEAF_LIST (ECF_NOTHROW | ECF_LEAF | ECF_CONST)
539 #define ATTR_NOTHROW_LIST (ECF_NOTHROW)
540 #define ATTR_CONST_NOTHROW_LIST (ECF_NOTHROW | ECF_CONST)
543 gfc_define_builtin (const char *name
, tree type
, enum built_in_function code
,
544 const char *library_name
, int attr
)
548 decl
= add_builtin_function (name
, type
, code
, BUILT_IN_NORMAL
,
549 library_name
, NULL_TREE
);
550 set_call_expr_flags (decl
, attr
);
552 set_builtin_decl (code
, decl
, true);
556 #define DO_DEFINE_MATH_BUILTIN(code, name, argtype, tbase) \
557 gfc_define_builtin ("__builtin_" name "l", tbase##longdouble[argtype], \
558 BUILT_IN_ ## code ## L, name "l", \
559 ATTR_CONST_NOTHROW_LEAF_LIST); \
560 gfc_define_builtin ("__builtin_" name, tbase##double[argtype], \
561 BUILT_IN_ ## code, name, \
562 ATTR_CONST_NOTHROW_LEAF_LIST); \
563 gfc_define_builtin ("__builtin_" name "f", tbase##float[argtype], \
564 BUILT_IN_ ## code ## F, name "f", \
565 ATTR_CONST_NOTHROW_LEAF_LIST);
567 #define DEFINE_MATH_BUILTIN(code, name, argtype) \
568 DO_DEFINE_MATH_BUILTIN (code, name, argtype, mfunc_)
570 #define DEFINE_MATH_BUILTIN_C(code, name, argtype) \
571 DO_DEFINE_MATH_BUILTIN (code, name, argtype, mfunc_) \
572 DO_DEFINE_MATH_BUILTIN (C##code, "c" name, argtype, mfunc_c)
575 /* Create function types for builtin functions. */
578 build_builtin_fntypes (tree
*fntype
, tree type
)
580 /* type (*) (type) */
581 fntype
[0] = build_function_type_list (type
, type
, NULL_TREE
);
582 /* type (*) (type, type) */
583 fntype
[1] = build_function_type_list (type
, type
, type
, NULL_TREE
);
584 /* type (*) (type, int) */
585 fntype
[2] = build_function_type_list (type
,
586 type
, integer_type_node
, NULL_TREE
);
587 /* type (*) (void) */
588 fntype
[3] = build_function_type_list (type
, NULL_TREE
);
589 /* type (*) (type, &int) */
590 fntype
[4] = build_function_type_list (type
, type
,
591 build_pointer_type (integer_type_node
),
593 /* type (*) (int, type) */
594 fntype
[5] = build_function_type_list (type
,
595 integer_type_node
, type
, NULL_TREE
);
600 builtin_type_for_size (int size
, bool unsignedp
)
602 tree type
= gfc_type_for_size (size
, unsignedp
);
603 return type
? type
: error_mark_node
;
606 /* Initialization of builtin function nodes. */
609 gfc_init_builtin_functions (void)
613 #define DEF_PRIMITIVE_TYPE(NAME, VALUE) NAME,
614 #define DEF_FUNCTION_TYPE_0(NAME, RETURN) NAME,
615 #define DEF_FUNCTION_TYPE_1(NAME, RETURN, ARG1) NAME,
616 #define DEF_FUNCTION_TYPE_2(NAME, RETURN, ARG1, ARG2) NAME,
617 #define DEF_FUNCTION_TYPE_3(NAME, RETURN, ARG1, ARG2, ARG3) NAME,
618 #define DEF_FUNCTION_TYPE_4(NAME, RETURN, ARG1, ARG2, ARG3, ARG4) NAME,
619 #define DEF_FUNCTION_TYPE_5(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5) NAME,
620 #define DEF_FUNCTION_TYPE_6(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, ARG6) NAME,
621 #define DEF_FUNCTION_TYPE_7(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, ARG6, ARG7) NAME,
622 #define DEF_FUNCTION_TYPE_8(NAME, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, ARG6, ARG7, ARG8) NAME,
623 #define DEF_FUNCTION_TYPE_VAR_0(NAME, RETURN) NAME,
624 #define DEF_POINTER_TYPE(NAME, TYPE) NAME,
626 #undef DEF_PRIMITIVE_TYPE
627 #undef DEF_FUNCTION_TYPE_0
628 #undef DEF_FUNCTION_TYPE_1
629 #undef DEF_FUNCTION_TYPE_2
630 #undef DEF_FUNCTION_TYPE_3
631 #undef DEF_FUNCTION_TYPE_4
632 #undef DEF_FUNCTION_TYPE_5
633 #undef DEF_FUNCTION_TYPE_6
634 #undef DEF_FUNCTION_TYPE_7
635 #undef DEF_FUNCTION_TYPE_8
636 #undef DEF_FUNCTION_TYPE_VAR_0
637 #undef DEF_POINTER_TYPE
642 tree mfunc_double
[6];
643 tree mfunc_longdouble
[6];
644 tree mfunc_cfloat
[6];
645 tree mfunc_cdouble
[6];
646 tree mfunc_clongdouble
[6];
647 tree func_cfloat_float
, func_float_cfloat
;
648 tree func_cdouble_double
, func_double_cdouble
;
649 tree func_clongdouble_longdouble
, func_longdouble_clongdouble
;
650 tree func_float_floatp_floatp
;
651 tree func_double_doublep_doublep
;
652 tree func_longdouble_longdoublep_longdoublep
;
654 tree builtin_types
[(int) BT_LAST
+ 1];
656 build_builtin_fntypes (mfunc_float
, float_type_node
);
657 build_builtin_fntypes (mfunc_double
, double_type_node
);
658 build_builtin_fntypes (mfunc_longdouble
, long_double_type_node
);
659 build_builtin_fntypes (mfunc_cfloat
, complex_float_type_node
);
660 build_builtin_fntypes (mfunc_cdouble
, complex_double_type_node
);
661 build_builtin_fntypes (mfunc_clongdouble
, complex_long_double_type_node
);
663 func_cfloat_float
= build_function_type_list (float_type_node
,
664 complex_float_type_node
,
667 func_float_cfloat
= build_function_type_list (complex_float_type_node
,
668 float_type_node
, NULL_TREE
);
670 func_cdouble_double
= build_function_type_list (double_type_node
,
671 complex_double_type_node
,
674 func_double_cdouble
= build_function_type_list (complex_double_type_node
,
675 double_type_node
, NULL_TREE
);
677 func_clongdouble_longdouble
=
678 build_function_type_list (long_double_type_node
,
679 complex_long_double_type_node
, NULL_TREE
);
681 func_longdouble_clongdouble
=
682 build_function_type_list (complex_long_double_type_node
,
683 long_double_type_node
, NULL_TREE
);
685 ptype
= build_pointer_type (float_type_node
);
686 func_float_floatp_floatp
=
687 build_function_type_list (void_type_node
, ptype
, ptype
, NULL_TREE
);
689 ptype
= build_pointer_type (double_type_node
);
690 func_double_doublep_doublep
=
691 build_function_type_list (void_type_node
, ptype
, ptype
, NULL_TREE
);
693 ptype
= build_pointer_type (long_double_type_node
);
694 func_longdouble_longdoublep_longdoublep
=
695 build_function_type_list (void_type_node
, ptype
, ptype
, NULL_TREE
);
697 /* Non-math builtins are defined manually, so they're not included here. */
698 #define OTHER_BUILTIN(ID,NAME,TYPE,CONST)
700 #include "mathbuiltins.def"
702 gfc_define_builtin ("__builtin_roundl", mfunc_longdouble
[0],
703 BUILT_IN_ROUNDL
, "roundl", ATTR_CONST_NOTHROW_LEAF_LIST
);
704 gfc_define_builtin ("__builtin_round", mfunc_double
[0],
705 BUILT_IN_ROUND
, "round", ATTR_CONST_NOTHROW_LEAF_LIST
);
706 gfc_define_builtin ("__builtin_roundf", mfunc_float
[0],
707 BUILT_IN_ROUNDF
, "roundf", ATTR_CONST_NOTHROW_LEAF_LIST
);
709 gfc_define_builtin ("__builtin_truncl", mfunc_longdouble
[0],
710 BUILT_IN_TRUNCL
, "truncl", ATTR_CONST_NOTHROW_LEAF_LIST
);
711 gfc_define_builtin ("__builtin_trunc", mfunc_double
[0],
712 BUILT_IN_TRUNC
, "trunc", ATTR_CONST_NOTHROW_LEAF_LIST
);
713 gfc_define_builtin ("__builtin_truncf", mfunc_float
[0],
714 BUILT_IN_TRUNCF
, "truncf", ATTR_CONST_NOTHROW_LEAF_LIST
);
716 gfc_define_builtin ("__builtin_cabsl", func_clongdouble_longdouble
,
717 BUILT_IN_CABSL
, "cabsl", ATTR_CONST_NOTHROW_LEAF_LIST
);
718 gfc_define_builtin ("__builtin_cabs", func_cdouble_double
,
719 BUILT_IN_CABS
, "cabs", ATTR_CONST_NOTHROW_LEAF_LIST
);
720 gfc_define_builtin ("__builtin_cabsf", func_cfloat_float
,
721 BUILT_IN_CABSF
, "cabsf", ATTR_CONST_NOTHROW_LEAF_LIST
);
723 gfc_define_builtin ("__builtin_copysignl", mfunc_longdouble
[1],
724 BUILT_IN_COPYSIGNL
, "copysignl",
725 ATTR_CONST_NOTHROW_LEAF_LIST
);
726 gfc_define_builtin ("__builtin_copysign", mfunc_double
[1],
727 BUILT_IN_COPYSIGN
, "copysign",
728 ATTR_CONST_NOTHROW_LEAF_LIST
);
729 gfc_define_builtin ("__builtin_copysignf", mfunc_float
[1],
730 BUILT_IN_COPYSIGNF
, "copysignf",
731 ATTR_CONST_NOTHROW_LEAF_LIST
);
733 gfc_define_builtin ("__builtin_nextafterl", mfunc_longdouble
[1],
734 BUILT_IN_NEXTAFTERL
, "nextafterl",
735 ATTR_CONST_NOTHROW_LEAF_LIST
);
736 gfc_define_builtin ("__builtin_nextafter", mfunc_double
[1],
737 BUILT_IN_NEXTAFTER
, "nextafter",
738 ATTR_CONST_NOTHROW_LEAF_LIST
);
739 gfc_define_builtin ("__builtin_nextafterf", mfunc_float
[1],
740 BUILT_IN_NEXTAFTERF
, "nextafterf",
741 ATTR_CONST_NOTHROW_LEAF_LIST
);
743 gfc_define_builtin ("__builtin_frexpl", mfunc_longdouble
[4],
744 BUILT_IN_FREXPL
, "frexpl", ATTR_NOTHROW_LEAF_LIST
);
745 gfc_define_builtin ("__builtin_frexp", mfunc_double
[4],
746 BUILT_IN_FREXP
, "frexp", ATTR_NOTHROW_LEAF_LIST
);
747 gfc_define_builtin ("__builtin_frexpf", mfunc_float
[4],
748 BUILT_IN_FREXPF
, "frexpf", ATTR_NOTHROW_LEAF_LIST
);
750 gfc_define_builtin ("__builtin_fabsl", mfunc_longdouble
[0],
751 BUILT_IN_FABSL
, "fabsl", ATTR_CONST_NOTHROW_LEAF_LIST
);
752 gfc_define_builtin ("__builtin_fabs", mfunc_double
[0],
753 BUILT_IN_FABS
, "fabs", ATTR_CONST_NOTHROW_LEAF_LIST
);
754 gfc_define_builtin ("__builtin_fabsf", mfunc_float
[0],
755 BUILT_IN_FABSF
, "fabsf", ATTR_CONST_NOTHROW_LEAF_LIST
);
757 gfc_define_builtin ("__builtin_scalbnl", mfunc_longdouble
[5],
758 BUILT_IN_SCALBNL
, "scalbnl", ATTR_CONST_NOTHROW_LEAF_LIST
);
759 gfc_define_builtin ("__builtin_scalbn", mfunc_double
[5],
760 BUILT_IN_SCALBN
, "scalbn", ATTR_CONST_NOTHROW_LEAF_LIST
);
761 gfc_define_builtin ("__builtin_scalbnf", mfunc_float
[5],
762 BUILT_IN_SCALBNF
, "scalbnf", ATTR_CONST_NOTHROW_LEAF_LIST
);
764 gfc_define_builtin ("__builtin_fmodl", mfunc_longdouble
[1],
765 BUILT_IN_FMODL
, "fmodl", ATTR_CONST_NOTHROW_LEAF_LIST
);
766 gfc_define_builtin ("__builtin_fmod", mfunc_double
[1],
767 BUILT_IN_FMOD
, "fmod", ATTR_CONST_NOTHROW_LEAF_LIST
);
768 gfc_define_builtin ("__builtin_fmodf", mfunc_float
[1],
769 BUILT_IN_FMODF
, "fmodf", ATTR_CONST_NOTHROW_LEAF_LIST
);
771 /* iround{f,,l}, lround{f,,l} and llround{f,,l} */
772 ftype
= build_function_type_list (integer_type_node
,
773 float_type_node
, NULL_TREE
);
774 gfc_define_builtin("__builtin_iroundf", ftype
, BUILT_IN_IROUNDF
,
775 "iroundf", ATTR_CONST_NOTHROW_LEAF_LIST
);
776 ftype
= build_function_type_list (long_integer_type_node
,
777 float_type_node
, NULL_TREE
);
778 gfc_define_builtin ("__builtin_lroundf", ftype
, BUILT_IN_LROUNDF
,
779 "lroundf", ATTR_CONST_NOTHROW_LEAF_LIST
);
780 ftype
= build_function_type_list (long_long_integer_type_node
,
781 float_type_node
, NULL_TREE
);
782 gfc_define_builtin ("__builtin_llroundf", ftype
, BUILT_IN_LLROUNDF
,
783 "llroundf", ATTR_CONST_NOTHROW_LEAF_LIST
);
785 ftype
= build_function_type_list (integer_type_node
,
786 double_type_node
, NULL_TREE
);
787 gfc_define_builtin("__builtin_iround", ftype
, BUILT_IN_IROUND
,
788 "iround", ATTR_CONST_NOTHROW_LEAF_LIST
);
789 ftype
= build_function_type_list (long_integer_type_node
,
790 double_type_node
, NULL_TREE
);
791 gfc_define_builtin ("__builtin_lround", ftype
, BUILT_IN_LROUND
,
792 "lround", ATTR_CONST_NOTHROW_LEAF_LIST
);
793 ftype
= build_function_type_list (long_long_integer_type_node
,
794 double_type_node
, NULL_TREE
);
795 gfc_define_builtin ("__builtin_llround", ftype
, BUILT_IN_LLROUND
,
796 "llround", ATTR_CONST_NOTHROW_LEAF_LIST
);
798 ftype
= build_function_type_list (integer_type_node
,
799 long_double_type_node
, NULL_TREE
);
800 gfc_define_builtin("__builtin_iroundl", ftype
, BUILT_IN_IROUNDL
,
801 "iroundl", ATTR_CONST_NOTHROW_LEAF_LIST
);
802 ftype
= build_function_type_list (long_integer_type_node
,
803 long_double_type_node
, NULL_TREE
);
804 gfc_define_builtin ("__builtin_lroundl", ftype
, BUILT_IN_LROUNDL
,
805 "lroundl", ATTR_CONST_NOTHROW_LEAF_LIST
);
806 ftype
= build_function_type_list (long_long_integer_type_node
,
807 long_double_type_node
, NULL_TREE
);
808 gfc_define_builtin ("__builtin_llroundl", ftype
, BUILT_IN_LLROUNDL
,
809 "llroundl", ATTR_CONST_NOTHROW_LEAF_LIST
);
811 /* These are used to implement the ** operator. */
812 gfc_define_builtin ("__builtin_powl", mfunc_longdouble
[1],
813 BUILT_IN_POWL
, "powl", ATTR_CONST_NOTHROW_LEAF_LIST
);
814 gfc_define_builtin ("__builtin_pow", mfunc_double
[1],
815 BUILT_IN_POW
, "pow", ATTR_CONST_NOTHROW_LEAF_LIST
);
816 gfc_define_builtin ("__builtin_powf", mfunc_float
[1],
817 BUILT_IN_POWF
, "powf", ATTR_CONST_NOTHROW_LEAF_LIST
);
818 gfc_define_builtin ("__builtin_cpowl", mfunc_clongdouble
[1],
819 BUILT_IN_CPOWL
, "cpowl", ATTR_CONST_NOTHROW_LEAF_LIST
);
820 gfc_define_builtin ("__builtin_cpow", mfunc_cdouble
[1],
821 BUILT_IN_CPOW
, "cpow", ATTR_CONST_NOTHROW_LEAF_LIST
);
822 gfc_define_builtin ("__builtin_cpowf", mfunc_cfloat
[1],
823 BUILT_IN_CPOWF
, "cpowf", ATTR_CONST_NOTHROW_LEAF_LIST
);
824 gfc_define_builtin ("__builtin_powil", mfunc_longdouble
[2],
825 BUILT_IN_POWIL
, "powil", ATTR_CONST_NOTHROW_LEAF_LIST
);
826 gfc_define_builtin ("__builtin_powi", mfunc_double
[2],
827 BUILT_IN_POWI
, "powi", ATTR_CONST_NOTHROW_LEAF_LIST
);
828 gfc_define_builtin ("__builtin_powif", mfunc_float
[2],
829 BUILT_IN_POWIF
, "powif", ATTR_CONST_NOTHROW_LEAF_LIST
);
832 if (targetm
.libc_has_function (function_c99_math_complex
))
834 gfc_define_builtin ("__builtin_cbrtl", mfunc_longdouble
[0],
835 BUILT_IN_CBRTL
, "cbrtl",
836 ATTR_CONST_NOTHROW_LEAF_LIST
);
837 gfc_define_builtin ("__builtin_cbrt", mfunc_double
[0],
838 BUILT_IN_CBRT
, "cbrt",
839 ATTR_CONST_NOTHROW_LEAF_LIST
);
840 gfc_define_builtin ("__builtin_cbrtf", mfunc_float
[0],
841 BUILT_IN_CBRTF
, "cbrtf",
842 ATTR_CONST_NOTHROW_LEAF_LIST
);
843 gfc_define_builtin ("__builtin_cexpil", func_longdouble_clongdouble
,
844 BUILT_IN_CEXPIL
, "cexpil",
845 ATTR_CONST_NOTHROW_LEAF_LIST
);
846 gfc_define_builtin ("__builtin_cexpi", func_double_cdouble
,
847 BUILT_IN_CEXPI
, "cexpi",
848 ATTR_CONST_NOTHROW_LEAF_LIST
);
849 gfc_define_builtin ("__builtin_cexpif", func_float_cfloat
,
850 BUILT_IN_CEXPIF
, "cexpif",
851 ATTR_CONST_NOTHROW_LEAF_LIST
);
854 if (targetm
.libc_has_function (function_sincos
))
856 gfc_define_builtin ("__builtin_sincosl",
857 func_longdouble_longdoublep_longdoublep
,
858 BUILT_IN_SINCOSL
, "sincosl", ATTR_NOTHROW_LEAF_LIST
);
859 gfc_define_builtin ("__builtin_sincos", func_double_doublep_doublep
,
860 BUILT_IN_SINCOS
, "sincos", ATTR_NOTHROW_LEAF_LIST
);
861 gfc_define_builtin ("__builtin_sincosf", func_float_floatp_floatp
,
862 BUILT_IN_SINCOSF
, "sincosf", ATTR_NOTHROW_LEAF_LIST
);
865 /* For LEADZ, TRAILZ, POPCNT and POPPAR. */
866 ftype
= build_function_type_list (integer_type_node
,
867 unsigned_type_node
, NULL_TREE
);
868 gfc_define_builtin ("__builtin_clz", ftype
, BUILT_IN_CLZ
,
869 "__builtin_clz", ATTR_CONST_NOTHROW_LEAF_LIST
);
870 gfc_define_builtin ("__builtin_ctz", ftype
, BUILT_IN_CTZ
,
871 "__builtin_ctz", ATTR_CONST_NOTHROW_LEAF_LIST
);
872 gfc_define_builtin ("__builtin_parity", ftype
, BUILT_IN_PARITY
,
873 "__builtin_parity", ATTR_CONST_NOTHROW_LEAF_LIST
);
874 gfc_define_builtin ("__builtin_popcount", ftype
, BUILT_IN_POPCOUNT
,
875 "__builtin_popcount", ATTR_CONST_NOTHROW_LEAF_LIST
);
877 ftype
= build_function_type_list (integer_type_node
,
878 long_unsigned_type_node
, NULL_TREE
);
879 gfc_define_builtin ("__builtin_clzl", ftype
, BUILT_IN_CLZL
,
880 "__builtin_clzl", ATTR_CONST_NOTHROW_LEAF_LIST
);
881 gfc_define_builtin ("__builtin_ctzl", ftype
, BUILT_IN_CTZL
,
882 "__builtin_ctzl", ATTR_CONST_NOTHROW_LEAF_LIST
);
883 gfc_define_builtin ("__builtin_parityl", ftype
, BUILT_IN_PARITYL
,
884 "__builtin_parityl", ATTR_CONST_NOTHROW_LEAF_LIST
);
885 gfc_define_builtin ("__builtin_popcountl", ftype
, BUILT_IN_POPCOUNTL
,
886 "__builtin_popcountl", ATTR_CONST_NOTHROW_LEAF_LIST
);
888 ftype
= build_function_type_list (integer_type_node
,
889 long_long_unsigned_type_node
, NULL_TREE
);
890 gfc_define_builtin ("__builtin_clzll", ftype
, BUILT_IN_CLZLL
,
891 "__builtin_clzll", ATTR_CONST_NOTHROW_LEAF_LIST
);
892 gfc_define_builtin ("__builtin_ctzll", ftype
, BUILT_IN_CTZLL
,
893 "__builtin_ctzll", ATTR_CONST_NOTHROW_LEAF_LIST
);
894 gfc_define_builtin ("__builtin_parityll", ftype
, BUILT_IN_PARITYLL
,
895 "__builtin_parityll", ATTR_CONST_NOTHROW_LEAF_LIST
);
896 gfc_define_builtin ("__builtin_popcountll", ftype
, BUILT_IN_POPCOUNTLL
,
897 "__builtin_popcountll", ATTR_CONST_NOTHROW_LEAF_LIST
);
899 /* Other builtin functions we use. */
901 ftype
= build_function_type_list (long_integer_type_node
,
902 long_integer_type_node
,
903 long_integer_type_node
, NULL_TREE
);
904 gfc_define_builtin ("__builtin_expect", ftype
, BUILT_IN_EXPECT
,
905 "__builtin_expect", ATTR_CONST_NOTHROW_LEAF_LIST
);
907 ftype
= build_function_type_list (void_type_node
,
908 pvoid_type_node
, NULL_TREE
);
909 gfc_define_builtin ("__builtin_free", ftype
, BUILT_IN_FREE
,
910 "free", ATTR_NOTHROW_LEAF_LIST
);
912 ftype
= build_function_type_list (pvoid_type_node
,
913 size_type_node
, NULL_TREE
);
914 gfc_define_builtin ("__builtin_malloc", ftype
, BUILT_IN_MALLOC
,
915 "malloc", ATTR_NOTHROW_LEAF_MALLOC_LIST
);
917 ftype
= build_function_type_list (pvoid_type_node
, size_type_node
,
918 size_type_node
, NULL_TREE
);
919 gfc_define_builtin ("__builtin_calloc", ftype
, BUILT_IN_CALLOC
,
920 "calloc", ATTR_NOTHROW_LEAF_MALLOC_LIST
);
921 DECL_IS_MALLOC (builtin_decl_explicit (BUILT_IN_CALLOC
)) = 1;
923 ftype
= build_function_type_list (pvoid_type_node
,
924 size_type_node
, pvoid_type_node
,
926 gfc_define_builtin ("__builtin_realloc", ftype
, BUILT_IN_REALLOC
,
927 "realloc", ATTR_NOTHROW_LEAF_LIST
);
929 ftype
= build_function_type_list (integer_type_node
,
930 void_type_node
, NULL_TREE
);
931 gfc_define_builtin ("__builtin_isnan", ftype
, BUILT_IN_ISNAN
,
932 "__builtin_isnan", ATTR_CONST_NOTHROW_LEAF_LIST
);
934 #define DEF_PRIMITIVE_TYPE(ENUM, VALUE) \
935 builtin_types[(int) ENUM] = VALUE;
936 #define DEF_FUNCTION_TYPE_0(ENUM, RETURN) \
937 builtin_types[(int) ENUM] \
938 = build_function_type_list (builtin_types[(int) RETURN], \
940 #define DEF_FUNCTION_TYPE_1(ENUM, RETURN, ARG1) \
941 builtin_types[(int) ENUM] \
942 = build_function_type_list (builtin_types[(int) RETURN], \
943 builtin_types[(int) ARG1], \
945 #define DEF_FUNCTION_TYPE_2(ENUM, RETURN, ARG1, ARG2) \
946 builtin_types[(int) ENUM] \
947 = build_function_type_list (builtin_types[(int) RETURN], \
948 builtin_types[(int) ARG1], \
949 builtin_types[(int) ARG2], \
951 #define DEF_FUNCTION_TYPE_3(ENUM, RETURN, ARG1, ARG2, ARG3) \
952 builtin_types[(int) ENUM] \
953 = build_function_type_list (builtin_types[(int) RETURN], \
954 builtin_types[(int) ARG1], \
955 builtin_types[(int) ARG2], \
956 builtin_types[(int) ARG3], \
958 #define DEF_FUNCTION_TYPE_4(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4) \
959 builtin_types[(int) ENUM] \
960 = build_function_type_list (builtin_types[(int) RETURN], \
961 builtin_types[(int) ARG1], \
962 builtin_types[(int) ARG2], \
963 builtin_types[(int) ARG3], \
964 builtin_types[(int) ARG4], \
966 #define DEF_FUNCTION_TYPE_5(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5) \
967 builtin_types[(int) ENUM] \
968 = build_function_type_list (builtin_types[(int) RETURN], \
969 builtin_types[(int) ARG1], \
970 builtin_types[(int) ARG2], \
971 builtin_types[(int) ARG3], \
972 builtin_types[(int) ARG4], \
973 builtin_types[(int) ARG5], \
975 #define DEF_FUNCTION_TYPE_6(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
977 builtin_types[(int) ENUM] \
978 = build_function_type_list (builtin_types[(int) RETURN], \
979 builtin_types[(int) ARG1], \
980 builtin_types[(int) ARG2], \
981 builtin_types[(int) ARG3], \
982 builtin_types[(int) ARG4], \
983 builtin_types[(int) ARG5], \
984 builtin_types[(int) ARG6], \
986 #define DEF_FUNCTION_TYPE_7(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
988 builtin_types[(int) ENUM] \
989 = build_function_type_list (builtin_types[(int) RETURN], \
990 builtin_types[(int) ARG1], \
991 builtin_types[(int) ARG2], \
992 builtin_types[(int) ARG3], \
993 builtin_types[(int) ARG4], \
994 builtin_types[(int) ARG5], \
995 builtin_types[(int) ARG6], \
996 builtin_types[(int) ARG7], \
998 #define DEF_FUNCTION_TYPE_8(ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, \
1000 builtin_types[(int) ENUM] \
1001 = build_function_type_list (builtin_types[(int) RETURN], \
1002 builtin_types[(int) ARG1], \
1003 builtin_types[(int) ARG2], \
1004 builtin_types[(int) ARG3], \
1005 builtin_types[(int) ARG4], \
1006 builtin_types[(int) ARG5], \
1007 builtin_types[(int) ARG6], \
1008 builtin_types[(int) ARG7], \
1009 builtin_types[(int) ARG8], \
1011 #define DEF_FUNCTION_TYPE_VAR_0(ENUM, RETURN) \
1012 builtin_types[(int) ENUM] \
1013 = build_varargs_function_type_list (builtin_types[(int) RETURN], \
1015 #define DEF_POINTER_TYPE(ENUM, TYPE) \
1016 builtin_types[(int) ENUM] \
1017 = build_pointer_type (builtin_types[(int) TYPE]);
1018 #include "types.def"
1019 #undef DEF_PRIMITIVE_TYPE
1020 #undef DEF_FUNCTION_TYPE_1
1021 #undef DEF_FUNCTION_TYPE_2
1022 #undef DEF_FUNCTION_TYPE_3
1023 #undef DEF_FUNCTION_TYPE_4
1024 #undef DEF_FUNCTION_TYPE_5
1025 #undef DEF_FUNCTION_TYPE_6
1026 #undef DEF_FUNCTION_TYPE_VAR_0
1027 #undef DEF_POINTER_TYPE
1028 builtin_types
[(int) BT_LAST
] = NULL_TREE
;
1030 /* Initialize synchronization builtins. */
1031 #undef DEF_SYNC_BUILTIN
1032 #define DEF_SYNC_BUILTIN(code, name, type, attr) \
1033 gfc_define_builtin (name, builtin_types[type], code, name, \
1035 #include "../sync-builtins.def"
1036 #undef DEF_SYNC_BUILTIN
1038 if (gfc_option
.gfc_flag_openmp
|| flag_tree_parallelize_loops
)
1040 #undef DEF_GOMP_BUILTIN
1041 #define DEF_GOMP_BUILTIN(code, name, type, attr) \
1042 gfc_define_builtin ("__builtin_" name, builtin_types[type], \
1044 #include "../omp-builtins.def"
1045 #undef DEF_GOMP_BUILTIN
1048 gfc_define_builtin ("__builtin_trap", builtin_types
[BT_FN_VOID
],
1049 BUILT_IN_TRAP
, NULL
, ATTR_NOTHROW_LEAF_LIST
);
1050 TREE_THIS_VOLATILE (builtin_decl_explicit (BUILT_IN_TRAP
)) = 1;
1052 gfc_define_builtin ("__emutls_get_address",
1053 builtin_types
[BT_FN_PTR_PTR
],
1054 BUILT_IN_EMUTLS_GET_ADDRESS
,
1055 "__emutls_get_address", ATTR_CONST_NOTHROW_LEAF_LIST
);
1056 gfc_define_builtin ("__emutls_register_common",
1057 builtin_types
[BT_FN_VOID_PTR_WORD_WORD_PTR
],
1058 BUILT_IN_EMUTLS_REGISTER_COMMON
,
1059 "__emutls_register_common", ATTR_NOTHROW_LEAF_LIST
);
1061 build_common_builtin_nodes ();
1062 targetm
.init_builtins ();
1065 #undef DEFINE_MATH_BUILTIN_C
1066 #undef DEFINE_MATH_BUILTIN
1071 tree_contains_struct
[NAMESPACE_DECL
][TS_DECL_NON_COMMON
] = 1;
1072 tree_contains_struct
[NAMESPACE_DECL
][TS_DECL_WITH_VIS
] = 1;
1073 tree_contains_struct
[NAMESPACE_DECL
][TS_DECL_WRTL
] = 1;
1074 tree_contains_struct
[NAMESPACE_DECL
][TS_DECL_COMMON
] = 1;
1075 tree_contains_struct
[NAMESPACE_DECL
][TS_DECL_MINIMAL
] = 1;
1079 gfc_maybe_initialize_eh (void)
1081 if (!flag_exceptions
|| gfc_eh_initialized_p
)
1084 gfc_eh_initialized_p
= true;
1085 using_eh_for_cleanups ();
1089 #include "gt-fortran-f95-lang.h"
1090 #include "gtype-fortran.h"