diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2012-09-16 22:49:20 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2012-09-16 22:49:20 +0200 |
| commit | aa6590cfbe40c8caf8d2482bb8d77ed3e151770e (patch) | |
| tree | bf15188669b1d6386e4581c1a9b78a38627de518 /gcc/fortran/interface.c | |
| parent | 37bfd49f329f3c2107068040c1421cfb6ef71fcb (diff) | |
| download | gcc-aa6590cfbe40c8caf8d2482bb8d77ed3e151770e.zip gcc-aa6590cfbe40c8caf8d2482bb8d77ed3e151770e.tar.gz gcc-aa6590cfbe40c8caf8d2482bb8d77ed3e151770e.tar.bz2 | |
re PR fortran/54594 ([OOP] Type-bound ASSIGNMENTs (elemental + array version) rejected as ambiguous)
2012-09-16 Janus Weil <janus@gcc.gnu.org>
PR fortran/54594
* interface.c (compare_type_rank): Handle CLASS arrays.
2012-09-16 Janus Weil <janus@gcc.gnu.org>
PR fortran/54594
* gfortran.dg/typebound_generic_14.f03: New.
From-SVN: r191365
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 482c294..b348856 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -507,14 +507,18 @@ gfc_compare_types (gfc_typespec *ts1, gfc_typespec *ts2) static int compare_type_rank (gfc_symbol *s1, gfc_symbol *s2) { + gfc_array_spec *as1, *as2; int r1, r2; - r1 = (s1->as != NULL) ? s1->as->rank : 0; - r2 = (s2->as != NULL) ? s2->as->rank : 0; + as1 = (s1->ts.type == BT_CLASS) ? CLASS_DATA (s1)->as : s1->as; + as2 = (s2->ts.type == BT_CLASS) ? CLASS_DATA (s2)->as : s2->as; + + r1 = as1 ? as1->rank : 0; + r2 = as2 ? as2->rank : 0; if (r1 != r2 - && (!s1->as || s1->as->type != AS_ASSUMED_RANK) - && (!s2->as || s2->as->type != AS_ASSUMED_RANK)) + && (!as1 || as1->type != AS_ASSUMED_RANK) + && (!as2 || as2->type != AS_ASSUMED_RANK)) return 0; /* Ranks differ. */ return gfc_compare_types (&s1->ts, &s2->ts) |