https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77414
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> --- Backup tests, more variants : $ cat z2.f90 subroutine s(x) real :: x contains subroutine s(x) character(*) :: x end end $ cat z3.f90 subroutine s(x) real :: x contains subroutine s(x) character(:), allocatable :: x end end $ cat z4.f90 subroutine s(x) character(*) :: x contains subroutine s(x) character(:), allocatable :: x end end --- Generating backtrace from pr44348 : $ cat z7.f90 subroutine s(x) character(*) :: x contains subroutine s(x) real :: x end end $ cat z8.f90 subroutine s(x) character(*) :: x contains subroutine s(x) real :: x(*) end end $ cat z9.f90 subroutine s(x) character(*) :: x contains subroutine s(x) character :: x(*) end end