[Bug fortran/118441] [15 Regression] [openmp] ICE with assignment of PACK of string array

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

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

--- Comment #2 from anlauf at gcc dot gnu.org ---
Besides PACK, there are further transformational intrinsics leading to an ICE:

  s(1:1) = pack (s(1:1), mask=.true.) ! ICE
  s(1:1) = reshape (s(1:1), [1])      ! ICE
  s(1:1) = spread (s(1), 1, 1)        ! ICE
  s(1:1) = unpack (s(1:1), s(1:1) /= "", "") ! ICE

This made me suspect r15-6423, but reverting it did NOT help here.