[Bug fortran/77414] ICE in create_function_arglist, at fortran/trans-decl.c:2410

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@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