diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-15 12:39:18 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-15 12:39:18 +0000 |
| commit | 4453ef2fde154a7a2344da1f63d91277a199ebea (patch) | |
| tree | 8ad02b282561ae6dcad9d4cfb667aa0aa44a2db1 | |
| parent | c02ce61cf7848d32600ed1bc1c2c6eb24fb3bf11 (diff) | |
| download | ppe42-gcc-4453ef2fde154a7a2344da1f63d91277a199ebea.tar.gz ppe42-gcc-4453ef2fde154a7a2344da1f63d91277a199ebea.zip | |
PR fortran/29459
* trans.c (gfc_create_var_np): Do not emit warnings for
anonymous variables.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127513 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 e43870de9dd..f9c4dd468d4 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 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; } |
