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/gfortran.h | |
| 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/gfortran.h')
| -rw-r--r-- | gcc/fortran/gfortran.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 759074a..43904e9 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -2842,7 +2842,7 @@ void gfc_free_interface (gfc_interface *); int gfc_compare_derived_types (gfc_symbol *, gfc_symbol *); int gfc_compare_types (gfc_typespec *, gfc_typespec *); int gfc_compare_interfaces (gfc_symbol*, gfc_symbol*, const char *, int, int, - char *, int); + char *, int, const char *, const char *); void gfc_check_interfaces (gfc_namespace *); void gfc_procedure_use (gfc_symbol *, gfc_actual_arglist **, locus *); void gfc_ppc_use (gfc_component *, gfc_actual_arglist **, locus *); |