[Bug fortran/68426] Simplification of SPREAD with a derived type element is unimplemented

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED

--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This deceptively simple patch seems to do the job:

Index: simplify.c
===================================================================
--- simplify.c  (Revision 267736)
+++ simplify.c  (Arbeitskopie)
@@ -7572,7 +7572,7 @@ gfc_simplify_spread (gfc_expr *source, gfc_expr *d
        return NULL;
     }

-  if (source->expr_type == EXPR_CONSTANT)
+  if (source->expr_type == EXPR_CONSTANT || source->expr_type ==
EXPR_STRUCTURE)
     {
       gcc_assert (dim == 0);