From 01306727d37b953932a24c24eca99808e26c22e0 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Mon, 9 Jul 2007 22:00:52 +0000 Subject: 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 --- gcc/fortran/trans-array.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/trans-array.c') 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); -- cgit v1.1