From a79ff094a98ab7ae3c02f07dabafadbe432248ac Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Thu, 11 Feb 2010 20:47:20 +0100 Subject: [PATCH] re PR fortran/43030 (Conditional jump or move depends on uninitialised value on eoshift_2.f90) PR fortran/43030 * resolve.c (gfc_resolve_dim_arg): Call gfc_clear_ts. From-SVN: r156718 --- gcc/fortran/ChangeLog | 3 +++ gcc/fortran/resolve.c | 1 + 2 files changed, 4 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 956d73ca987..af6dd52a7fa 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,8 @@ 2010-02-11 Jakub Jelinek + 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 b525e32b166..bcc8eaeddb5 100644 --- 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; -- 2.30.2