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'
