From a4d9b2212cbf2912387c215da744c217de80f5d2 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 13 Dec 2014 00:12:06 +0100 Subject: error.c (gfc_error): Add variant which takes a va_list. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 2014-12-13 Tobias Burnus Manuel López-Ibáñez fortran/ * error.c (gfc_error): Add variant which takes a va_list. (gfc_notify_std): Convert to common diagnostic. * array.c: Use %qs, %<...%> in more gfc_error calls and for gfc_notify_std. * check.c: Ditto. * data.c: Ditto. * decl.c: Ditto. * expr.c: Ditto. * interface.c: Ditto. * intrinsic.c: Ditto. * io.c: Ditto. * match.c: Ditto. * matchexp.c: Ditto. * module.c: Ditto. * openmp.c: Ditto. * parse.c: Ditto. * primary.c: Ditto. * resolve.c: Ditto. * simplify.c: Ditto. * symbol.c: Ditto. * trans-common.c: Ditto. * trans-intrinsic.c: Ditto. gcc/testsuite/ * gfortran.dg/realloc_on_assign_21.f90: Update dg-error. * gfortran.dg/warnings_are_errors_1.f: Ditto. * gfortran.dg/warnings_are_errors_1.f90: Ditto. Co-Authored-By: Manuel López-Ibáñez From-SVN: r218694 --- gcc/fortran/trans-intrinsic.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/fortran/trans-intrinsic.c') diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 4ebe492..bd3962e 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -1468,7 +1468,7 @@ trans_this_image (gfc_se * se, gfc_expr *expr) { if (wi::ltu_p (dim_arg, 1) || wi::gtu_p (dim_arg, GFC_TYPE_ARRAY_CORANK (TREE_TYPE (desc)))) - gfc_error ("'dim' argument of %s intrinsic at %L is not a valid " + gfc_error ("% argument of %s intrinsic at %L is not a valid " "dimension index", expr->value.function.isym->name, &expr->where); } @@ -1854,7 +1854,7 @@ gfc_conv_intrinsic_bound (gfc_se * se, gfc_expr * expr, int upper) if (((!as || as->type != AS_ASSUMED_RANK) && wi::geu_p (bound, GFC_TYPE_ARRAY_RANK (TREE_TYPE (desc)))) || wi::gtu_p (bound, GFC_MAX_DIMENSIONS)) - gfc_error ("'dim' argument of %s intrinsic at %L is not a valid " + gfc_error ("% argument of %s intrinsic at %L is not a valid " "dimension index", upper ? "UBOUND" : "LBOUND", &expr->where); } @@ -2050,7 +2050,7 @@ conv_intrinsic_cobound (gfc_se * se, gfc_expr * expr) { if (wi::ltu_p (bound, 1) || wi::gtu_p (bound, GFC_TYPE_ARRAY_CORANK (TREE_TYPE (desc)))) - gfc_error ("'dim' argument of %s intrinsic at %L is not a valid " + gfc_error ("% argument of %s intrinsic at %L is not a valid " "dimension index", expr->value.function.isym->name, &expr->where); } -- cgit v1.1