Commit 9606f3c9 by Tobias Burnus Committed by Tobias Burnus

expr.c (gfc_build_intrinsic_call): Make symbol as

2013-05-27  Tobias Burnus  <burnus@net-b.de>

        * expr.c (gfc_build_intrinsic_call): Make symbol as
        * attr.artificial.
        * intrinsic.c (gfc_is_intrinsic): Disable std check for those.

From-SVN: r199355
parent 7894bc6b
2013-05-27 Tobias Burnus <burnus@net-b.de>
* expr.c (gfc_build_intrinsic_call): Make symbol as attr.artificial.
* intrinsic.c (gfc_is_intrinsic): Disable std check for those.
2013-05-22 Tobias Burnus <burnus@net-b.de>
* resolve.c (get_temp_from_expr): Change mangling to
......
......@@ -4657,6 +4657,7 @@ gfc_build_intrinsic_call (gfc_namespace *ns, gfc_isym_id id, const char* name,
result->symtree->n.sym->intmod_sym_id = id;
result->symtree->n.sym->attr.flavor = FL_PROCEDURE;
result->symtree->n.sym->attr.intrinsic = 1;
result->symtree->n.sym->attr.artificial = 1;
va_start (ap, numarg);
atail = NULL;
......
......@@ -1046,7 +1046,8 @@ gfc_is_intrinsic (gfc_symbol* sym, int subroutine_flag, locus loc)
return false;
/* See if this intrinsic is allowed in the current standard. */
if (!gfc_check_intrinsic_standard (isym, &symstd, false, loc))
if (!gfc_check_intrinsic_standard (isym, &symstd, false, loc)
&& !sym->attr.artificial)
{
if (sym->attr.proc == PROC_UNKNOWN
&& gfc_option.warn_intrinsics_std)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment