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

[urbanjost at comcast dot net]

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

--- Comment #1 from urbanjost at comcast dot net ---
Created attachment 48796
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=48796&action=edit
test using PACK(3f) intrinsic with allocatable variables

PACK() intrinsic is returning all blanks in subroutine BAD3().

Expect all three test routines to produce "bat cat"; but third one produces
blanks,  Seems to occur only with len=: variable(?)

gfortran xbad.f90
bash-4.4$ ./a.out
bat        cat        
bat        cat        

          10           4