diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2012-06-22 23:05:51 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2012-06-22 23:05:51 +0200 |
| commit | 6f3ab30d8b7bfa0ab2e5a370f1196602960c271c (patch) | |
| tree | 39c3ebe36c82e2ea4b612953d5ff90a3518c0b65 /gcc/fortran/expr.c | |
| parent | 42533d77ac86ef73fe89ec5daf9c5d7fbb59cf55 (diff) | |
| download | gcc-6f3ab30d8b7bfa0ab2e5a370f1196602960c271c.zip gcc-6f3ab30d8b7bfa0ab2e5a370f1196602960c271c.tar.gz gcc-6f3ab30d8b7bfa0ab2e5a370f1196602960c271c.tar.bz2 | |
re PR fortran/47710 ([OOP] Improve ambiguity check for GENERIC TBP w/ PASS and NOPASS)
2012-06-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/47710
PR fortran/53328
* interface.c (count_types_test, generic_correspondence,
gfc_compare_interfaces): Ignore PASS arguments.
(check_interface1, compare_parameter): Pass NULL arguments to
gfc_compare_interfaces.
* gfortran.h (gfc_compare_interfaces): Modified prototype.
* expr.c (gfc_check_pointer_assign): Pass NULL arguments to
gfc_compare_interfaces.
* resolve.c (resolve_structure_cons): Ditto.
(check_generic_tbp_ambiguity): Determine PASS arguments and pass them
to gfc_compare_interfaces.
2012-06-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/47710
PR fortran/53328
* gfortran.dg/typebound_generic_12.f03: New.
* gfortran.dg/typebound_generic_13.f03: New.
From-SVN: r188902
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 4765afa..0b38cac 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -3498,7 +3498,7 @@ gfc_check_pointer_assign (gfc_expr *lvalue, gfc_expr *rvalue) } if (s1 && s2 && !gfc_compare_interfaces (s1, s2, name, 0, 1, - err, sizeof(err))) + err, sizeof(err), NULL, NULL)) { gfc_error ("Interface mismatch in procedure pointer assignment " "at %L: %s", &rvalue->where, err); |