diff options
Diffstat (limited to 'gcc/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 63a3a419ff3..1772727bd85 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -9609,6 +9609,7 @@ ffeexpr_exprstack_push_unary_ (ffeexprExpr_ e) <= FFEEXPR_operatorprecedenceLOWARITH_) && (e->u.operator.prec <= FFEEXPR_operatorprecedenceLOWARITH_)) { + /* xgettext:no-c-format */ ffebad_start_msg ("Two arithmetic operators in a row at %0 and %1 -- use parentheses", ffe_is_pedantic () ? FFEBAD_severityPEDANTIC @@ -9658,6 +9659,7 @@ ffeexpr_exprstack_push_binary_ (ffeexprExpr_ e) && (e->u.operator.prec < ffeexpr_stack_->exprstack->previous->u.operator.prec)) { + /* xgettext:no-c-format */ ffebad_start_msg ("Operator at %0 has lower precedence than that at %1 -- use parentheses", FFEBAD_severityWARNING); ffebad_here (0, ffelex_token_where_line (ffeexpr_stack_->exprstack->previous->token), @@ -10518,6 +10520,7 @@ ffeexpr_reduced_eqop2_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op, if ((lbt == FFEINFO_basictypeLOGICAL) && (rbt == FFEINFO_basictypeLOGICAL)) { + /* xgettext:no-c-format */ if (ffebad_start_msg ("Use .EQV./.NEQV. instead of .EQ./.NE. at %0 for LOGICAL operands at %1 and %2", FFEBAD_severityFATAL)) { @@ -10888,6 +10891,7 @@ ffeexpr_reduced_power_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op, } if (rkt == FFEINFO_kindtypeINTEGER4) { + /* xgettext:no-c-format */ ffebad_start_msg ("Unsupported operand for ** at %1 -- converting to default INTEGER", FFEBAD_severityWARNING); ffebad_here (0, ffelex_token_where_line (r->token), ffelex_token_where_column (r->token)); |