diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-08-03 13:08:50 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-08-03 13:08:50 +0200 |
| commit | aea18e926af4167682a3fda159647e001c660991 (patch) | |
| tree | b7729d1d740cd150207608722bafb1e916f855c5 /gcc/fortran/resolve.c | |
| parent | 1890bccc84b42bf84137be7ffbc8a61bc8463046 (diff) | |
| download | gcc-aea18e926af4167682a3fda159647e001c660991.zip gcc-aea18e926af4167682a3fda159647e001c660991.tar.gz gcc-aea18e926af4167682a3fda159647e001c660991.tar.bz2 | |
re PR fortran/44584 (Invalid memory access with gfortran.dg/typebound_proc_15.f03)
2010-08-03 Janus Weil <janus@gcc.gnu.org>
PR fortran/44584
PR fortran/45161
* class.c (add_procs_to_declared_vtab1): Don't add erroneous procedures.
* resolve.c (resolve_tb_generic_targets): Check for errors.
2010-08-03 Janus Weil <janus@gcc.gnu.org>
PR fortran/44584
PR fortran/45161
* gfortran.dg/typebound_call_9.f03: Modified.
* gfortran.dg/typebound_generic_1.f03: Modified.
From-SVN: r162840
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 6ccc565..90d193c 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10261,7 +10261,7 @@ resolve_tb_generic_targets (gfc_symbol* super_type, target_name = target->specific_st->name; /* Defined for this type directly. */ - if (target->specific_st->n.tb) + if (target->specific_st->n.tb && !target->specific_st->n.tb->error) { target->specific = target->specific_st->n.tb; goto specific_found; |