This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/80291] [OOP] ICE in gfc_conv_expr_descriptor, at fortran/trans-array.c:6662
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Fri, 07 Apr 2017 17:17:31 +0000
- Subject: [Bug fortran/80291] [OOP] ICE in gfc_conv_expr_descriptor, at fortran/trans-array.c:6662
- Auto-submitted: auto-generated
- References: <bug-80291-4@http.gcc.gnu.org/bugzilla/>
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