https://gcc.gnu.org/bugzilla/show_bug.cgi?id=118640
--- Comment #3 from paul.richard.thomas at gmail dot com <paul.richard.thomas at gmail dot com> --- Hi Jakub, I'll take it just as soon as I am in a position to do so - likely Sunday night or Monday morning. Thanks for the reduction. Paul On Fri, 24 Jan 2025, 13:39 jakub at gcc dot gnu.org, < gcc-bugzi...@gcc.gnu.org> wrote: > https://gcc.gnu.org/bugzilla/show_bug.cgi?id=118640 > > --- Comment #2 from Jakub Jelinek <jakub at gcc dot gnu.org> --- > Reduced testcase: > > module foo > type t1 > contains > procedure bar > generic :: assignment(=) => bar > end type > type t2 > type(t1) m > end type > contains > subroutine bar (x, y) > intent(in) y > class(t1), intent(out) :: x > end subroutine > end module > subroutine baz (x, y) > use foo > integer y > type(t2), pointer, optional :: x > interface > function qux (x) > use foo > integer x > type(t2) qux > end function > end interface > if (present (x)) then > x = qux (y) > end if > end subroutine > > -- > You are receiving this mail because: > You are on the CC list for the bug.
