https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85750
--- Comment #4 from Harald Anlauf <anlauf at gmx dot de> ---
(In reply to Stephan Kramer from comment #0)
Workaround:
> function make_list(i)
> integer, intent(in) :: i
> type(ilist), dimension(2) :: make_list
make_list = ilist()
> make_list(i)%count = 1
>
> end function make_list
