diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-07-09 22:00:52 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-07-09 22:00:52 +0000 |
| commit | 01306727d37b953932a24c24eca99808e26c22e0 (patch) | |
| tree | a91c5a5656a1533e49fdea2b5d41036e625301d2 /gcc/fortran/trans-array.c | |
| parent | 0f67fa83f2c26552227efc893ae27a910a40e140 (diff) | |
| download | gcc-01306727d37b953932a24c24eca99808e26c22e0.zip gcc-01306727d37b953932a24c24eca99808e26c22e0.tar.gz gcc-01306727d37b953932a24c24eca99808e26c22e0.tar.bz2 | |
re PR fortran/29459 (Spurious warnings about anonymous variables)
PR fortran/29459
* trans-array.c (gfc_trans_array_constructor): Mark offset field
with TREE_NO_WARNING.
* trans-decl.c (gfc_build_qualified_array): Mark lbound, ubound,
stride and size variables with TREE_NO_WARNING.
From-SVN: r126496
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 72bfd38..6a48031 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1695,6 +1695,7 @@ gfc_trans_array_constructor (gfc_loopinfo * loop, gfc_ss * ss) desc = ss->data.info.descriptor; offset = gfc_index_zero_node; offsetvar = gfc_create_var_np (gfc_array_index_type, "offset"); + TREE_NO_WARNING (offsetvar) = 1; TREE_USED (offsetvar) = 0; gfc_trans_array_constructor_value (&loop->pre, type, desc, c, &offset, &offsetvar, dynamic); |