PR fortran/43030

	* resolve.c (gfc_resolve_dim_arg): Call gfc_clear_ts.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156718 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 956d73c..af6dd52 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 b525e32..bcc8eae 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;