From ff5b6492be92ceeee1c917956758918a0141c542 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Fri, 2 Jul 2010 20:01:05 +0000 Subject: re PR fortran/44662 (unitialized memory on testcases abstract_type_6.f03 and typebound_call_4.f03) 2010-07-02 Mikael Morin PR fortran/44662 * decl.c (match_procedure_in_type): Clear structure before using. (gfc_match_generic): Ditto. From-SVN: r161739 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/decl.c | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 6fbf2d5..c8801b0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-07-02 Mikael Morin + + PR fortran/44662 + * decl.c (match_procedure_in_type): Clear structure before using. + (gfc_match_generic): Ditto. + 2010-07-02 Nathan Froyd * trans-types.h (gfc_add_field_to_struct): Add tree ** parameter. diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 07c3acb..e5ef139 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -7697,8 +7697,8 @@ match_procedure_in_type (void) } /* Construct the data structure. */ + memset (&tb, 0, sizeof (tb)); tb.where = gfc_current_locus; - tb.is_generic = 0; /* Match binding attributes. */ m = match_binding_attributes (&tb, false, false); @@ -7856,6 +7856,9 @@ gfc_match_generic (void) ns = block->f2k_derived; gcc_assert (block && ns); + memset (&tbattr, 0, sizeof (tbattr)); + tbattr.where = gfc_current_locus; + /* See if we get an access-specifier. */ m = match_binding_attributes (&tbattr, true, false); if (m == MATCH_ERROR) -- cgit v1.1