[gfortran,committed] Get rid of -Wuninitialized warnings on front-end artificial variables

[gfortran,committed] Get rid of -Wuninitialized warnings on front-end artificial variables

[FX Coudert]

Attached patch is yet another "get rid of spurious -Wuninitialized  
warnings" patch, committed as rev. 128673 after regtesting on x86_64- 
linux.

FX




Index: ChangeLog
===================================================================
--- ChangeLog   (revision 128672)
+++ ChangeLog   (working copy)
@@ -1,3 +1,10 @@
+2007-09-22  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       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  <pault@gcc.gnu.org>
         PR fortran/33337
Index: trans-types.c
===================================================================
--- trans-types.c       (revision 128672)
+++ trans-types.c       (working copy)
@@ -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.  */