https://gcc.gnu.org/bugzilla/show_bug.cgi?id=127892
--- Comment #2 from Harald Anlauf <anlauf at gcc dot gnu.org> ---
Reduced testcase:
module m
character(8), parameter :: c8 = transfer('AB', 'xxxxxxxx')
logical, parameter :: test_char_scalar = ichar(c8(8:8)) == 0
end module
