diff options
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index ba84163..782f38e 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2413,8 +2413,8 @@ gfc_match_rvalue (gfc_expr **result) goto function0; if (sym->attr.flavor == FL_UNKNOWN) sym->attr.flavor = FL_PROCEDURE; - if (gfc_intrinsic_name (sym->name, 0) - || gfc_intrinsic_name (sym->name, 1)) + if (gfc_is_intrinsic (sym, 0, gfc_current_locus) + || gfc_is_intrinsic (sym, 1, gfc_current_locus)) sym->attr.intrinsic = 1; e = gfc_get_expr (); e->expr_type = EXPR_VARIABLE; |