[Bug fortran/104314] ICE in deferred_op_assign, at fortran/resolve.cc:11794

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104314
anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #3 from anlauf at gcc dot gnu.org ---
(In reply to kargl from comment #1)
> Untested patch.

Yes, that works.  Even shorter:

diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index ca114750f65..3834f9a3f06 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -11803,6 +11803,7 @@ deferred_op_assign (gfc_code **code, gfc_namespace *ns)

   if (!((*code)->expr1->ts.type == BT_CHARACTER
         && (*code)->expr1->ts.deferred && (*code)->expr1->rank
+        && (*code)->expr2->ts.type == BT_CHARACTER
         && (*code)->expr2->expr_type == EXPR_OP))
     return false;