[Bug fortran/125393] [16/17 Regression] Wcharacter-truncation false positive for character arrays since r16-3462

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

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

--- Comment #5 from Harald Anlauf <anlauf at gcc dot gnu.org> ---
Created attachment 64562
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=64562&action=edit
Better patch

This does not regress on gfortran.dg/argument_checking*.f90 and catches
another abuse.

Needs further testing.