https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125429
Paul Thomas <pault at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
CC| |pault at gcc dot gnu.org
Ever confirmed|0 |1
Last reconfirmed| |2026-05-24
--- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> ---
Replacing
o(pick_first(o%available, size(o)))%items = i
with
integer :: j
j = pick_first(o%available, size(o))
o(j)%items = i
corrects the failures with gcc and ifx.
flang compiles the testcase out of the box with the interesting and useful
warning:
./pr125429.f90:10:33: warning: 'items' of derived type 'inner' does not have a
FINAL subroutine for its rank (1) [-Wfinal]
type(inner), allocatable :: items(:)
^^^^^
./pr125429.f90:3:11: Declaration of derived type 'inner'
type :: inner
^^^^^
Confirmed
Paul
