diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-08-07 12:12:09 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-08-07 12:12:09 +0200 |
| commit | 99fc1b90cda7c80de9a1b7fdb3261185604c7586 (patch) | |
| tree | 609c767e03ac951170167c3efe780f0cf1058588 /gcc/fortran/dependency.h | |
| parent | f446d60e814fdafc3bd7b11b748f2faeb0012a5a (diff) | |
| download | gcc-99fc1b90cda7c80de9a1b7fdb3261185604c7586.zip gcc-99fc1b90cda7c80de9a1b7fdb3261185604c7586.tar.gz gcc-99fc1b90cda7c80de9a1b7fdb3261185604c7586.tar.bz2 | |
re PR fortran/49638 ([OOP] length parameter is ignored when overriding type bound character functions with constant length.)
2011-08-07 Janus Weil <janus@gcc.gnu.org>
PR fortran/49638
* dependency.h (gfc_is_same_range,gfc_are_identical_variables): Remove
two prototypes.
* dependency.c (gfc_are_identical_variables,are_identical_variables):
Renamed the former to the latter and made static.
(gfc_dep_compare_expr): Renamed 'gfc_are_identical_variables', handle
commutativity of multiplication.
(gfc_is_same_range,is_same_range): Renamed the former to the latter,
made static and removed argument 'def'.
(check_section_vs_section): Renamed 'gfc_is_same_range'.
* gfortran.h (gfc_check_typebound_override): New prototype.
* interface.c (gfc_check_typebound_override): Moved here from ...
* resolve.c (check_typebound_override): ... here (and renamed).
(resolve_typebound_procedure): Renamed 'check_typebound_override'.
From-SVN: r177545
Diffstat (limited to 'gcc/fortran/dependency.h')
| -rw-r--r-- | gcc/fortran/dependency.h | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/fortran/dependency.h b/gcc/fortran/dependency.h index d58287d..d56a7f7 100644 --- a/gcc/fortran/dependency.h +++ b/gcc/fortran/dependency.h @@ -37,11 +37,7 @@ gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *); int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *, gfc_actual_arglist *, gfc_dep_check); int gfc_check_dependency (gfc_expr *, gfc_expr *, bool); -int gfc_is_same_range (gfc_array_ref *, gfc_array_ref *, int, int); int gfc_expr_is_one (gfc_expr *, int); int gfc_dep_resolver(gfc_ref *, gfc_ref *, gfc_reverse *); int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *); - -bool gfc_are_identical_variables (gfc_expr *, gfc_expr *); - |