[Bug fortran/104619] [10/11/12 Regression] ICE on list comprehension with default derived type constructor

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

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
                 CC|                            |anlauf at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW
            Summary|ICE on list comprehension   |[10/11/12 Regression] ICE
                   |with default derived type   |on list comprehension with
                   |constructor                 |default derived type
                   |                            |constructor
   Last reconfirmed|                            |2022-02-21
           Priority|P3                          |P4
     Ever confirmed|0                           |1

--- Comment #1 from anlauf at gcc dot gnu.org ---
Confirmed.

Potential fix: skip shape check when shape is not available

diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 266e41e25b1..451bc97df43 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -1472,6 +1472,8 @@ resolve_structure_cons (gfc_expr *expr, int init)
                  t = false;
                  break;
                };
+             if (cons->expr->shape == NULL)
+               continue;
              mpz_set_ui (len, 1);
              mpz_add (len, len, comp->as->upper[n]->value.integer);
              mpz_sub (len, len, comp->as->lower[n]->value.integer);