https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83515
Kwok Yeung <kcy at codesourcery dot com> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kcy at codesourcery dot com
--- Comment #9 from Kwok Yeung <kcy at codesourcery dot com> ---
(In reply to G. Steinmetz from comment #3)
The test case can be reduced even further:
module m
contains
function f() result(z)
class(*), pointer :: z
end
recursive subroutine s(q)
procedure(f) :: q
call s(q)
end
end
