From d8eff1b8e4ca36200a7f01c233317dad63888727 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sat, 22 Sep 2007 16:54:56 +0000 Subject: [PATCH] re PR fortran/33522 (Incorrect warning messages about uninitialized variables) PR fortran/33522 * trans-types.c (gfc_get_desc_dim_type): Mark artificial variables with TREE_NO_WARNING. (gfc_get_array_descriptor_base): Likewise. From-SVN: r128673 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/trans-types.c | 6 ++++++ 2 files changed, 13 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cb8f7ccb664..3c85cdd754a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2007-09-22 Francois-Xavier Coudert + + PR fortran/33522 + * trans-types.c (gfc_get_desc_dim_type): Mark artificial + variables with TREE_NO_WARNING. + (gfc_get_array_descriptor_base): Likewise. + 2007-09-22 Paul Thomas PR fortran/33337 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index cfdd39991f5..e8368612b27 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1088,16 +1088,19 @@ gfc_get_desc_dim_type (void) decl = build_decl (FIELD_DECL, get_identifier ("stride"), gfc_array_index_type); DECL_CONTEXT (decl) = type; + TREE_NO_WARNING (decl) = 1; fieldlist = decl; decl = build_decl (FIELD_DECL, get_identifier ("lbound"), gfc_array_index_type); DECL_CONTEXT (decl) = type; + TREE_NO_WARNING (decl) = 1; fieldlist = chainon (fieldlist, decl); decl = build_decl (FIELD_DECL, get_identifier ("ubound"), gfc_array_index_type); DECL_CONTEXT (decl) = type; + TREE_NO_WARNING (decl) = 1; fieldlist = chainon (fieldlist, decl); /* Finish off the type. */ @@ -1389,12 +1392,14 @@ gfc_get_array_descriptor_base (int dimen) decl = build_decl (FIELD_DECL, get_identifier ("offset"), gfc_array_index_type); DECL_CONTEXT (decl) = fat_type; + TREE_NO_WARNING (decl) = 1; fieldlist = chainon (fieldlist, decl); /* Add the dtype component. */ decl = build_decl (FIELD_DECL, get_identifier ("dtype"), gfc_array_index_type); DECL_CONTEXT (decl) = fat_type; + TREE_NO_WARNING (decl) = 1; fieldlist = chainon (fieldlist, decl); /* Build the array type for the stride and bound components. */ @@ -1406,6 +1411,7 @@ gfc_get_array_descriptor_base (int dimen) decl = build_decl (FIELD_DECL, get_identifier ("dim"), arraytype); DECL_CONTEXT (decl) = fat_type; + TREE_NO_WARNING (decl) = 1; fieldlist = chainon (fieldlist, decl); /* Finish off the type. */ -- 2.30.2