From 049e4fb094d3639d4ef65959e98d143ae44a57ae Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 15 Aug 2007 12:39:18 +0000 Subject: [PATCH] re PR fortran/29459 (Spurious warnings about anonymous variables) PR fortran/29459 * trans.c (gfc_create_var_np): Do not emit warnings for anonymous variables. From-SVN: r127513 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans.c | 10 +++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e43870de9dd..f9c4dd468d4 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-08-15 Francois-Xavier Coudert + + PR fortran/29459 + * trans.c (gfc_create_var_np): Do not emit warnings for + anonymous variables. + 2007-08-15 Francois-Xavier Coudert PR fortran/33066 diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 79112e590ea..7092ac8cd0a 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -102,7 +102,15 @@ remove_suffix (char *name, int len) tree gfc_create_var_np (tree type, const char *prefix) { - return create_tmp_var_raw (type, prefix); + tree t; + + t = create_tmp_var_raw (type, prefix); + + /* No warnings for anonymous variables. */ + if (prefix == NULL) + TREE_NO_WARNING (t) = 1; + + return t; }