diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-06-09 16:14:08 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-06-09 16:14:08 +0200 |
| commit | f1a0b754cf8762f602d0f6053579927e9df1dc2f (patch) | |
| tree | c5f8e7de1381e23fc8ef82411496bad02709550b /gcc/fortran/resolve.c | |
| parent | 6ef9e52dc64abfac9301b21136cecd951ff2a156 (diff) | |
| download | gcc-f1a0b754cf8762f602d0f6053579927e9df1dc2f.zip gcc-f1a0b754cf8762f602d0f6053579927e9df1dc2f.tar.gz gcc-f1a0b754cf8762f602d0f6053579927e9df1dc2f.tar.bz2 | |
re PR fortran/44211 ([OOP] ICE with TBP of pointer component of derived type array)
2010-06-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/44211
* resolve.c (resolve_typebound_function,resolve_typebound_subroutine):
Resolve references.
2010-06-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/44211
* gfortran.dg/typebound_call_14.f03: New test.
From-SVN: r160478
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 2ee82af..8fabf4e 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5415,6 +5415,9 @@ resolve_typebound_function (gfc_expr* e) if (st == NULL) return resolve_compcall (e, NULL); + if (resolve_ref (e) == FAILURE) + return FAILURE; + /* Get the CLASS declared type. */ declared = get_declared_from_expr (&class_ref, &new_ref, e); @@ -5487,6 +5490,9 @@ resolve_typebound_subroutine (gfc_code *code) if (st == NULL) return resolve_typebound_call (code, NULL); + if (resolve_ref (code->expr1) == FAILURE) + return FAILURE; + /* Get the CLASS declared type. */ declared = get_declared_from_expr (&class_ref, &new_ref, code->expr1); |