id = ffecom_get_invented_identifier ("__g77_masterfun_%s",
ffesymbol_text (fn),
0);
- IDENTIFIER_INVENTED (id) = 0; /* Allow this to be debugged. */
}
#if FFETARGET_isENFORCED_MAIN
else if (main_program)
eqt = start_decl (eqt, FALSE);
- /* Make sure this shows up as a debug symbol, which is not normally
- the case for invented identifiers. */
-
- DECL_IGNORED_P (eqt) = 0;
-
/* Make sure that any type can live in EQUIVALENCE and be referenced
without getting a bus error. We could pick the most restrictive
alignment of all entities actually placed in the EQUIVALENCE, but
DECL_ARTIFICIAL (x) = 1;
#endif
DECL_IN_SYSTEM_HEADER (x) = 1;
- DECL_IGNORED_P (x) = 1;
- TREE_USED (x) = 1;
- if (TREE_CODE (x) == TYPE_DECL)
- TYPE_DECL_SUPPRESS_DEBUG (x) = 1;
}
t = lookup_name_current_level (name);