re PR fortran/43030 (Conditional jump or move depends on uninitialised value on eoshi...

	PR fortran/43030
	* resolve.c (gfc_resolve_dim_arg): Call gfc_clear_ts.

From-SVN: r156718

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 956d73ca9875afbc9b25b20e04e1cf0a91053253..af6dd52a7fa315cff70a1fd42631ae35ec0ba68d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,8 @@
 2010-02-11  Jakub Jelinek  <jakub@redhat.com>
 
+       PR fortran/43030
+       * resolve.c (gfc_resolve_dim_arg): Call gfc_clear_ts.
+
        PR fortran/43029
        * decl.c (enumerator_decl): Don't call gfc_free_enum_history
        here.

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index b525e32b16660d4455314dea7efe435a445c3e0f..bcc8eaeddb552f842abf25eafa30f47f8d0daf3b 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -3958,6 +3958,7 @@ gfc_resolve_dim_arg (gfc_expr *dim)
     {
       gfc_typespec ts;
 
+      gfc_clear_ts (&ts);
       ts.type = BT_INTEGER;
       ts.kind = gfc_index_integer_kind;