diff options
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 9b96f29..799d2fe 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -546,7 +546,7 @@ create_var (gfc_expr * e) result->ref->u.ar.where = e->where; result->ref->u.ar.as = symbol->ts.type == BT_CLASS ? CLASS_DATA (symbol)->as : symbol->as; - if (gfc_option.warn_array_temp) + if (warn_array_temporaries) gfc_warning ("Creating array temporary at %L", &(e->where)); } @@ -565,7 +565,7 @@ create_var (gfc_expr * e) /* Warn about function elimination. */ static void -warn_function_elimination (gfc_expr *e) +do_warn_function_elimination (gfc_expr *e) { if (e->expr_type != EXPR_FUNCTION) return; @@ -618,8 +618,8 @@ cfe_expr_0 (gfc_expr **e, int *walk_subtrees, if (newvar == NULL) newvar = create_var (*ei); - if (gfc_option.warn_function_elimination) - warn_function_elimination (*ej); + if (warn_function_elimination) + do_warn_function_elimination (*ej); free (*ej); *ej = gfc_copy_expr (newvar); |