From 13001f33ca62776df6dddf738d6f3f8633c3f3a9 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Sat, 20 Aug 2011 21:11:56 +0200 Subject: re PR fortran/49638 ([OOP] length parameter is ignored when overriding type bound character functions with constant length.) 2011-08-20 Janus Weil 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 PR fortran/49638 * gfortran.dg/typebound_override_1.f90: Modified. From-SVN: r177932 --- gcc/fortran/interface.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/interface.c') 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; -- cgit v1.1