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
This commit is contained in:
parent
ee5d176a88
commit
049e4fb094
|
@ -1,3 +1,9 @@
|
||||||
|
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>
|
2007-08-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/33066
|
PR fortran/33066
|
||||||
|
|
|
@ -102,7 +102,15 @@ remove_suffix (char *name, int len)
|
||||||
tree
|
tree
|
||||||
gfc_create_var_np (tree type, const char *prefix)
|
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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue