[Bug fortran/95373] [9/10/11 Regression] ICE in build_reference_type, at tree.c:7942

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
           Keywords|ice-on-valid-code           |
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
Removed keyword.  It is an ICE-on-invalid with -std=f95;
code is valid for F2003 and newer.

Index: gcc/fortran/primary.c
===================================================================
--- gcc/fortran/primary.c       (revision 280157)
+++ gcc/fortran/primary.c       (working copy)
@@ -2242,7 +2242,12 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, 
            sym = NULL;

          if (sep == '%' && primary->ts.type != BT_UNKNOWN)
-           intrinsic = true;
+           {
+             if (!gfc_notify_std (GFC_STD_F2003,
+                                  "Invalid type parameter inquiry at %C"))
+               return MATCH_ERROR;
+             intrinsic = true;
+           }
        }
       else
        inquiry = false;