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; }