From 0d3b0abea32c88c867948cd1786bd9df3634ac89 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Tue, 6 Jun 2006 04:15:17 +0000 Subject: re PR fortran/27897 (ICE on common block with the same name as the program.) 2006-06-06 Paul Thomas PR fortran/27897 * match.c (gfc_match_common): Fix code typo. Remove sym->name, since sym is NULL, and replace with name. * fortran/ChangeLog : Fix typo: 20838 to 20839. * testsuite/ChangeLog : The same. From-SVN: r114422 --- gcc/fortran/ChangeLog | 8 +++++++- gcc/fortran/match.c | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 776394e..e916c28 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-06-06 Paul Thomas + + PR fortran/27897 + * match.c (gfc_match_common): Fix code typo. Remove + sym->name, since sym is NULL, and replace with name. + 2006-06-05 Francois-Xavier Coudert PR libfortran/27895 @@ -21,7 +27,7 @@ (gfc_add_type): If a procedure and types are the same do not throw an error unless standard is less than gnu or pedantic. - PR fortran/20838 + PR fortran/20839 * parse.c (parse_do_block): Error if named block do construct does not have a named enddo. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 81bbb23..ab01ad6 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2293,7 +2293,7 @@ gfc_match_common (void) if (gsym->type != GSYM_UNKNOWN && gsym->type != GSYM_COMMON) { gfc_error ("Symbol '%s' at %C is already an external symbol that is not COMMON", - sym->name); + name); goto cleanup; } -- cgit v1.1