aboutsummaryrefslogtreecommitdiff
path: root/gcc/f/expr.c
diff options
context:
space:
mode:
authorPhilipp Thomas <pthomas@suse.de>2002-02-04 15:58:51 +0000
committerPhilipp Thomas <pthomas@gcc.gnu.org>2002-02-04 15:58:51 +0000
commit5987ca1c3806cf5e6d829ba2a92961499aea2da0 (patch)
tree2a725c3e5bd80811f13876c72691a5330fe4fd70 /gcc/f/expr.c
parentf3e9edff6a370713067611836309c614a7a6b66a (diff)
downloadgcc-5987ca1c3806cf5e6d829ba2a92961499aea2da0.zip
gcc-5987ca1c3806cf5e6d829ba2a92961499aea2da0.tar.gz
gcc-5987ca1c3806cf5e6d829ba2a92961499aea2da0.tar.bz2
bad.def [...]: Insert comments to mark messages as not being printf style where appropriate.
2002-02-04 Philipp Thomas <pthomas@suse.de> * bad.def com.c expr.c implic.c lex.c stb.c ste.c stu.c: Insert comments to mark messages as not being printf style where appropriate. From-SVN: r49477
Diffstat (limited to 'gcc/f/expr.c')
-rw-r--r--gcc/f/expr.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c
index 63a3a41..1772727 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));