diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-10-21 11:25:17 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-10-21 11:25:17 +0200 |
| commit | acee84866682d56e06be28e1d81e399214cde5f6 (patch) | |
| tree | 3e58f9853e10a350cd0ff2a572637e5c60ee49f8 /gcc/fortran/interface.c | |
| parent | 5490de28a24febd89bed4bb027d5013c4e6ee83c (diff) | |
| download | gcc-acee84866682d56e06be28e1d81e399214cde5f6.zip gcc-acee84866682d56e06be28e1d81e399214cde5f6.tar.gz gcc-acee84866682d56e06be28e1d81e399214cde5f6.tar.bz2 | |
re PR fortran/46067 ([F03] invalid procedure pointer assignment not detected)
2010-10-21 Janus Weil <janus@gcc.gnu.org>
PR fortran/46067
* interface.c (gfc_compare_interfaces): Switch arguments of type
comparison (important for polymorphic variables).
2010-10-21 Janus Weil <janus@gcc.gnu.org>
PR fortran/46067
* gfortran.dg/dummy_procedure_4.f90: New.
* gfortran.dg/proc_ptr_30.f90: New.
From-SVN: r165755
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index cbe63ca..6ae36c2 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1056,7 +1056,7 @@ gfc_compare_interfaces (gfc_symbol *s1, gfc_symbol *s2, const char *name2, } /* Check type and rank. */ - if (!compare_type_rank (f1->sym, f2->sym)) + if (!compare_type_rank (f2->sym, f1->sym)) { if (errmsg != NULL) snprintf (errmsg, err_len, "Type/rank mismatch in argument '%s'", |