[Bug fortran/94192] ICE on wrong code

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2020-03-16
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
Quite silly to have an assert if compiler has already issued an error.

Index: gcc/fortran/simplify.c
===================================================================
--- gcc/fortran/simplify.c      (revision 280157)
+++ gcc/fortran/simplify.c      (working copy)
 @@ -4154,12 +4189,6 @@ simplify_bound (gfc_expr *array, gfc_expr *dim, gfc_ex
             || (as->type == AS_ASSUMED_SHAPE && upper)))
     return NULL;

-  gcc_assert (!as
-             || (as->type != AS_DEFERRED
-                 && array->expr_type == EXPR_VARIABLE
-                 && !gfc_expr_attr (array).allocatable
-                 && !gfc_expr_attr (array).pointer));
-
   if (dim == NULL)
     {
       /* Multi-dimensional bounds.  */