[Bug fortran/110585] ICE in gfc_compare_expr for findloc with complex literal array

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

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=110585

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |anlauf at gcc dot 
gnu.org
             Status|UNCONFIRMED                 |NEW
     Ever confirmed|0                           |1
                 CC|                            |anlauf at gcc dot gnu.org
   Last reconfirmed|                            |2023-07-07

--- Comment #1 from anlauf at gcc dot gnu.org ---
Confirmed.  Complex seems to have been forgotten in simplification...

Obvious fix:

@@ -1120,6 +1130,10 @@ gfc_compare_expr (gfc_expr *op1, gfc_expr *op2,
gfc_intrinsic_op op)
            || (op1->value.logical && !op2->value.logical));
       break;

+    case BT_COMPLEX:
+      rc = mpc_cmp (op1->value.complex, op2->value.complex);
+      break;
+
     default:
       gfc_internal_error ("gfc_compare_expr(): Bad basic type");
     }