diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-15 12:39:18 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-15 12:39:18 +0000 |
| commit | 049e4fb094d3639d4ef65959e98d143ae44a57ae (patch) | |
| tree | 8ad02b282561ae6dcad9d4cfb667aa0aa44a2db1 | |
| parent | ee5d176a88399eeb47d76f37531257b62b5f36d3 (diff) | |
| download | gcc-049e4fb094d3639d4ef65959e98d143ae44a57ae.zip gcc-049e4fb094d3639d4ef65959e98d143ae44a57ae.tar.gz gcc-049e4fb094d3639d4ef65959e98d143ae44a57ae.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans.c | 10 |
2 files changed, 15 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e43870d..f9c4dd4 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2007-08-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + PR fortran/29459 + * trans.c (gfc_create_var_np): Do not emit warnings for + anonymous variables. + +2007-08-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + PR fortran/33066 * decl.c (gfc_get_type_attr_spec): Fix whitespace. (gfc_match_derived_decl): Fix logic. diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 79112e5..7092ac8 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; } |