[Bug fortran/95947] PACK intrinsic returns blank strings when an allocatable character array with allocatable length is used

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

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

--- Comment #6 from anlauf at gcc dot gnu.org ---
Setting a breakpoint in gfc_resolve_pack, I find for the len=: case:

(gdb) p *array->ts.u.cl
$12 = {length = 0x0, next = 0x2cc7af0, length_from_typespec = false,
backend_decl = 0x0, 
  passed_length = 0x0, resolved = 1}

Not good.

I see similar problems for other intrinsics, such as in:

  m = adjustl (m([2]))

which later ICEs...