re PR fortran/41755 (Segfault on invalid code)

2009-10-19  Tobias Burnus  <burnus@net-b.de>
            Steven G. Kargl  <kargl@gcc.gnu.org>

        PR fortran/41755
        * symbol.c (gfc_undo_symbols): Add NULL check.
        * match.c (gfc_match_equivalence): Add check for
        missing comma.

2009-10-19  Tobias Burnus  <burnus@net-b.de>

        PR fortran/41755
        * gfortran.dg/equiv_8.f90: New test.
        * gfortran.dg/class_allocate_1.f03: Remove obsolete FIXME.


Co-Authored-By: Steven G. Kargl <kargl@gcc.gnu.org>

From-SVN: r152983
This commit is contained in:
Tobias Burnus 2009-10-19 20:03:02 +02:00 committed by Tobias Burnus
parent 941e566ae7
commit 585ba38fd5
6 changed files with 27 additions and 4 deletions

View File

@ -1,3 +1,11 @@
2009-10-19 Tobias Burnus <burnus@net-b.de>
Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/41755
* symbol.c (gfc_undo_symbols): Add NULL check.
* match.c (gfc_match_equivalence): Add check for
missing comma.
2009-10-19 Richard Guenther <rguenther@suse.de>
PR fortran/41494

View File

@ -3750,7 +3750,10 @@ gfc_match_equivalence (void)
if (gfc_match_eos () == MATCH_YES)
break;
if (gfc_match_char (',') != MATCH_YES)
goto syntax;
{
gfc_error ("Expecting a comma in EQUIVALENCE at %C");
goto cleanup;
}
}
return MATCH_YES;

View File

@ -2741,7 +2741,7 @@ gfc_undo_symbols (void)
if (p->gfc_new)
{
/* Symbol was new. */
if (p->attr.in_common && p->common_block->head)
if (p->attr.in_common && p->common_block && p->common_block->head)
{
/* If the symbol was added to any common block, it
needs to be removed to stop the resolver looking

View File

@ -1,3 +1,9 @@
2009-10-19 Tobias Burnus <burnus@net-b.de>
PR fortran/41755
* gfortran.dg/equiv_8.f90: New test.
* gfortran.dg/class_allocate_1.f03: Remove obsolete FIXME.
2009-10-19 Joseph Myers <joseph@codesourcery.com>
* gcc.target/arm/neon-thumb2-move.c: New test.

View File

@ -68,8 +68,7 @@
i = 0
allocate(t2 :: cp2)
! FIXME: Not yet supported: source=<class>
! allocate(cp, source = cp2)
allocate(cp, source = cp2)
allocate(t2 :: cp3)
allocate(cp, source=cp3)
select type (cp)

View File

@ -0,0 +1,7 @@
! { dg-do compile }
!
! PR fortran/41755
!
common /uno/ aa
equivalence (aa,aaaaa) (bb,cc) ! { dg-error "Expecting a comma in EQUIVALENCE" }
end