[Bug fortran/93580] [9/10 Regression] ICE in gfc_validate_kind(): Got bad kind

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2020-02-04
                 CC|                            |kargl at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #2 from kargl at gcc dot gnu.org ---
Patch against svn r280157.

Index: gcc/fortran/primary.c
===================================================================
--- gcc/fortran/primary.c       (revision 280157)
+++ gcc/fortran/primary.c       (working copy)
@@ -2241,6 +2241,15 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, 
          if (inquiry)
            sym = NULL;

+         if (sep == '%'
+             && tmp && (tmp->u.i == INQUIRY_RE || tmp->u.i == INQUIRY_IM)
+             && primary->ts.type != BT_COMPLEX)
+           {
+             gfc_error ("The RE or IM part_ref at %C must be "
+                        "applied to a COMPLEX expression");
+             return MATCH_ERROR;
+           }
+
          if (sep == '%' && primary->ts.type != BT_UNKNOWN)
            intrinsic = true;
        }