diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-06-06 04:15:17 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2006-06-06 04:15:17 +0000 |
| commit | 0d3b0abea32c88c867948cd1786bd9df3634ac89 (patch) | |
| tree | a7e8bcd92906c07932356c4e9da21fc95decfa3a /gcc | |
| parent | 52fd3667e2827fb9db9a7c4e0b5a7bc542887c0b (diff) | |
| download | gcc-0d3b0abea32c88c867948cd1786bd9df3634ac89.zip gcc-0d3b0abea32c88c867948cd1786bd9df3634ac89.tar.gz gcc-0d3b0abea32c88c867948cd1786bd9df3634ac89.tar.bz2 | |
re PR fortran/27897 (ICE on common block with the same name as the program.)
2006-06-06 Paul Thomas <pault@gcc.gnu.org>
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 2 |
3 files changed, 9 insertions, 3 deletions
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 <pault@gcc.gnu.org> + + 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 <coudert@clipper.ens.fr> 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; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2a597d4..ace5b3f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -29,7 +29,7 @@ PR fortran/16943 * gfortran.dg/func_decl_2.f90: New test. - PR fortran/20838 + PR fortran/20839 * gfortran.dg/do_2.f90: New test. PR fortran/27655 |