diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-08-20 21:11:56 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-08-20 21:11:56 +0200 |
| commit | 13001f33ca62776df6dddf738d6f3f8633c3f3a9 (patch) | |
| tree | 0b566ef40080433f1d226346402ff9a2e006672f /gcc/fortran/interface.c | |
| parent | 894113c35c8cc3caa9b15860eb9ad06130776091 (diff) | |
| download | gcc-13001f33ca62776df6dddf738d6f3f8633c3f3a9.zip gcc-13001f33ca62776df6dddf738d6f3f8633c3f3a9.tar.gz gcc-13001f33ca62776df6dddf738d6f3f8633c3f3a9.tar.bz2 | |
re PR fortran/49638 ([OOP] length parameter is ignored when overriding type bound character functions with constant length.)
2011-08-20 Janus Weil <janus@gcc.gnu.org>
PR fortran/49638
* dependency.c (gfc_dep_compare_expr): Add new result value "-3".
(gfc_check_element_vs_section,gfc_check_element_vs_element): Handle
result value "-3".
* frontend-passes.c (optimize_comparison): Ditto.
* interface.c (gfc_check_typebound_override): Ditto.
2011-08-20 Janus Weil <janus@gcc.gnu.org>
PR fortran/49638
* gfortran.dg/typebound_override_1.f90: Modified.
From-SVN: r177932
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 0ea244d..c662697 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -3574,7 +3574,8 @@ gfc_check_typebound_override (gfc_symtree* proc, gfc_symtree* old) switch (compval) { case -1: - case 1: + case 1: + case -3: gfc_error ("Character length mismatch between '%s' at '%L' and " "overridden FUNCTION", proc->name, &where); return FAILURE; |