[Bug fortran/93814] [9/10/11 Regression] ICE in build_entry_thunks, at fortran/trans-decl.c:2898

[gs...@t-online.de]

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

--- Comment #6 from G. Steinmetz <gs...@t-online.de> ---

Following (valid) cases should also be considered (no ICE) :


$ cat z2.f90
function f()
character :: f, g
entry g()
end


$ cat z3.f90
function f() bind(c)
integer :: f, g
entry g() bind(c)
end


$ cat z4.f90
function f() bind(c)
real :: f, g
entry g() bind(c)
end