diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-07-27 20:26:34 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-07-27 20:26:34 +0200 |
| commit | e26f55480f2895cfa21613d9250736411e55ae15 (patch) | |
| tree | f2377284b13d7bf04e368921ef58c67c590aba4e /gcc/fortran/interface.c | |
| parent | cf157324f383a7bfb6504e8ec20d8d0a569ac43b (diff) | |
| download | gcc-e26f55480f2895cfa21613d9250736411e55ae15.zip gcc-e26f55480f2895cfa21613d9250736411e55ae15.tar.gz gcc-e26f55480f2895cfa21613d9250736411e55ae15.tar.bz2 | |
re PR fortran/40848 (ICE with alternate returns)
2009-07-27 Janus Weil <janus@gcc.gnu.org>
PR fortran/40848
* interface.c (gfc_compare_interfaces): Call 'count_types_test' before
'generic_correspondence', and only if checking a generic interface.
2009-07-27 Janus Weil <janus@gcc.gnu.org>
PR fortran/40848
* gfortran.dg/altreturn_7.f90: New.
From-SVN: r150134
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index cedca45..982aa29 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -983,6 +983,8 @@ gfc_compare_interfaces (gfc_symbol *s1, gfc_symbol *s2, int generic_flag, if (generic_flag) { + if (count_types_test (f1, f2) || count_types_test (f2, f1)) + return 0; if (generic_correspondence (f1, f2) || generic_correspondence (f2, f1)) return 0; } @@ -1034,13 +1036,6 @@ gfc_compare_interfaces (gfc_symbol *s1, gfc_symbol *s2, int generic_flag, f2 = f2->next; } - if (count_types_test (f1, f2) || count_types_test (f2, f1)) - { - if (errmsg != NULL) - snprintf (errmsg, err_len, "Interface not matching"); - return 0; - } - return 1; } |