From 44000dbbe05896777b4781f5c274272c15097861 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 29 Feb 2008 22:50:25 +0000 Subject: re PR fortran/35059 (Seg fault when max constructor limit reached) 2008-02-29 Jerry DeLisle PR fortran/35059 * expr.c (find_array_element): Modify traversing the constructor to avoid trying to access NULL memory pointed to by next for the last element. (find_array_section): Exit while loop if cons->next is NULL. * trans-expr.c (gfc_conv_scalar_char_value): Initialize gfc_typespec. (gfc_conv_function_call): Same. * decl.c (gfc_match_implicit): Same. * trans-intrinsic.c (gfc_conv_intrinsic_sr_kind): Same. From-SVN: r132782 --- gcc/fortran/decl.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/decl.c') diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index d830687..892c80a 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2506,6 +2506,8 @@ gfc_match_implicit (void) int c; match m; + gfc_clear_ts (&ts); + /* We don't allow empty implicit statements. */ if (gfc_match_eos () == MATCH_YES) { -- cgit v1.1