diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-01-22 14:50:25 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-01-22 14:50:25 +0100 |
| commit | 4618de23d8ac1c2a2c054c8120bcf02d190901d5 (patch) | |
| tree | 92e63a65a75a31ae825b8b194f60db85cd2c192a /gcc/fortran | |
| parent | caaf13d38729701accab60cfee5d743a5b9afad1 (diff) | |
| download | gcc-4618de23d8ac1c2a2c054c8120bcf02d190901d5.zip gcc-4618de23d8ac1c2a2c054c8120bcf02d190901d5.tar.gz gcc-4618de23d8ac1c2a2c054c8120bcf02d190901d5.tar.bz2 | |
re PR fortran/47399 ([OOP] ICE with TBP of a PARAMETER)
2011-01-22 Tobias Burnus <burnus@net-b.de>
PR fortran/47399
* primary.c (gfc_match_varspec): Relax gcc_assert to allow for
PARAMETER TBP.
2011-01-22 Tobias Burnus <burnus@net-b.de>
PR fortran/47399
* gfortran.dg/typebound_proc_19.f90: New.
From-SVN: r169126
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 553c338..f0562ac 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-01-22 Tobias Burnus <burnus@net-b.de> + + PR fortran/47399 + * primary.c (gfc_match_varspec): Relax gcc_assert to allow for + PARAMETER TBP. + 2011-01-21 Tobias Burnus <burnus@net-b.de> PR fortran/47394 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index ed85398..360176e 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1843,7 +1843,10 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag, return MATCH_ERROR; gcc_assert (!tail || !tail->next); - gcc_assert (primary->expr_type == EXPR_VARIABLE); + gcc_assert (primary->expr_type == EXPR_VARIABLE + || (primary->expr_type == EXPR_STRUCTURE + && primary->symtree && primary->symtree->n.sym + && primary->symtree->n.sym->attr.flavor)); if (tbp->n.tb->is_generic) tbp_sym = NULL; |