diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-20 00:05:35 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-20 00:05:35 +0000 |
| commit | d839f2a021f09bbbd890032de84e6b76ff8a17a8 (patch) | |
| tree | d081b85a5b03cc9289d0f5d6d6883cd754d58a2d /gcc/fortran | |
| parent | 2a977b7824e6cb645bd485be19261468d38b6b32 (diff) | |
| download | gcc-d839f2a021f09bbbd890032de84e6b76ff8a17a8.tar.gz | |
2010-06-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/44584
* resolve.c (resolve_fl_derived): Reverse ordering of conditions
to avoid ICE.
2010-06-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/44584
* gfortran.dg/typebound_proc_15.f03: Modified.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161041 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dfaeeec31ea..1d2edde95a3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-06-19 Janus Weil <janus@gcc.gnu.org> + + PR fortran/44584 + * resolve.c (resolve_fl_derived): Reverse ordering of conditions + to avoid ICE. + 2010-06-18 Tobias Burnus <burnus@net-b.de> PR fortran/44556 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0951498e2db..2f05b23b02f 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10892,7 +10892,7 @@ resolve_fl_derived (gfc_symbol *sym) c->ts.u.cl = cl; } } - else if (c->ts.interface->name[0] != '\0' && !sym->attr.vtype) + else if (!sym->attr.vtype && c->ts.interface->name[0] != '\0') { gfc_error ("Interface '%s' of procedure pointer component " "'%s' at %L must be explicit", c->ts.interface->name, |