[Bug fortran/96320] gfortran 8-10 shape mismatch in assumed-length dummy argument character array

[dominiq at lps dot ens.fr]

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

--- Comment #16 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Bother - I left the diagnostic line in the patch:
>
> +	  gfc_warning_now (0, "s1 %i   s2 %i \n", s1->as->type, s2->as->type);
>
>Sorry about that

What I guessed, but I still see (not new)

/opt/gcc/work/gcc/testsuite/gfortran.dg/whole_file_23.f90:18:32:

   18 |     pure integer function lensum (words, sep)
      |                                1
Warning: Interface mismatch in global procedure 'lensum' at (1): Shape mismatch
in argument 'words'