From a1ab6660ae5b348d625af230f78bbe28556b2a45 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 4 Jan 2009 23:17:37 +0000 Subject: re PR fortran/38665 (ICE in check_host_association) 2009-01-05 Paul Thomas PR fortran/38665 * gfortran.h : Add bit to gfc_expr 'user_operator' * interface.c (gfc_extend_expr): Set the above if the operator is substituted by a function. * resolve.c (check_host_association): Return if above is set. 2009-01-05 Paul Thomas PR fortran/38665 * gfortran.dg/host_assoc_function_5.f90: New test. From-SVN: r143064 --- gcc/fortran/interface.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/interface.c') diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 17f70331286..f779dfa04de 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2670,6 +2670,7 @@ gfc_extend_expr (gfc_expr *e) e->value.function.esym = NULL; e->value.function.isym = NULL; e->value.function.name = NULL; + e->user_operator = 1; if (gfc_pure (NULL) && !gfc_pure (sym)) { -- cgit v1.2.1