diff options
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 47364da..f02ff32 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1042,7 +1042,8 @@ gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post, gfc_ss * ss, gcc_assert (ss->loop->dimen == ss->dimen); if (warn_array_temporaries && where) - gfc_warning ("Creating array temporary at %L", where); + gfc_warning (OPT_Warray_temporaries, + "Creating array temporary at %L", where); /* Set the lower bound to zero. */ for (s = ss; s; s = s->parent) @@ -5922,7 +5923,8 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, stride = gfc_index_one_node; if (warn_array_temporaries) - gfc_warning ("Creating array temporary at %L", &loc); + gfc_warning (OPT_Warray_temporaries, + "Creating array temporary at %L", &loc); } /* This is for the case where the array data is used directly without @@ -7205,10 +7207,12 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, bool g77, if (warn_array_temporaries) { if (fsym) - gfc_warning ("Creating array temporary at %L for argument '%s'", + gfc_warning (OPT_Warray_temporaries, + "Creating array temporary at %L for argument %qs", &expr->where, fsym->name); else - gfc_warning ("Creating array temporary at %L", &expr->where); + gfc_warning (OPT_Warray_temporaries, + "Creating array temporary at %L", &expr->where); } ptr = build_call_expr_loc (input_location, |