From 7e703f019b351ceb6c68da23bde1e1754746e1f2 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 18 Mar 2019 07:28:42 +0000 Subject: re PR fortran/88008 (ICE in check_typebound_baseobject, at fortran/resolve.c:6058) 2019-03-17 Thomas Koenig PR fortran/88008 * gfortran.h (expr_t): Add EXPR_UNKNOWN. * expr.c (gfc_copy_expr): Add EXPR_UNKNOWN to switch statement. (gfc_simplify_expr): Likewise. * module.c (mio_expr): Likewise. * resovle.c (extract_compcall_passed_object): Issue error on unknown type. (check_typebound_baseobject): Issue error on wrong type. * trans-expr.c (gfc_apply_interface_mapping_to_expr): Add EXPR_UNKNOWN to switch statement. 2019-03-17 Thomas Koenig PR fortran/88008 * gfortran.dg/typebound_call_31.f90: New test. From-SVN: r269750 --- gcc/fortran/expr.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/fortran/expr.c') diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index d654f4e7..4c76f53 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -390,6 +390,9 @@ gfc_copy_expr (gfc_expr *p) case EXPR_VARIABLE: case EXPR_NULL: break; + + case EXPR_UNKNOWN: + gcc_unreachable (); } q->shape = gfc_copy_shape (p->shape, p->rank); @@ -2206,6 +2209,9 @@ gfc_simplify_expr (gfc_expr *p, int type) case EXPR_COMPCALL: case EXPR_PPC: break; + + case EXPR_UNKNOWN: + gcc_unreachable (); } return true; -- cgit v1.1