[Bug fortran/80291] [OOP] ICE in gfc_conv_expr_descriptor, at fortran/trans-array.c:6662

[janus at gcc dot gnu.org]

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

--- Comment #6 from janus at gcc dot gnu.org ---
Here is a slightly further reduced version of the test case:


module test
    implicit none

    type cell_t
    contains
        procedure :: get_mask
    end type
contains

    elemental logical function get_mask (self, inode)
        implicit none
        class(cell_t), intent(in) :: self
        integer, intent(in) :: inode
        get_mask = .false.
    end function

end module


program gfortran_bug
    use test
    implicit none

    class(cell_t), pointer :: cell
    associate(mask => cell%get_mask([1,2]))
    end associate
end