http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55983
Bug #: 55983
Summary: ICE in find_typebound_proc_uop, at
fortran/class.c:2711
Classification: Unclassified
Product: gcc
Version: 4.8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassig...@gcc.gnu.org
ReportedBy: sla...@staszic.waw.pl
First, sorry for not reducing the test case further.
Second, here's the way to reproduce it:
$ cat bug2.f
module bcd_m
type, abstract :: bcd_t
contains
procedure(bcd_fill_halos), deferred :: fill_halos
end type
abstract interface
subroutine bcd_fill_halos(this)
import :: bcd_t
class(bcd_t ) :: this
end subroutine
end interface
end module
module solver_mpdata_m
type :: mpdata_t
class(bcd_t), pointer :: bcx, bcy
contains
procedure :: advop => mpdata_advop
end type
contains
subroutine mpdata_advop(this)
class(mpdata_t) :: this
associate ( bcx => this%bcx, bcy => this%bcy )
call bcx%fill_halos()
end associate
end subroutine
end module
$ /usr/lib/gcc-snapshot/bin/gfortran -ffree-form -std=f2008 bug2.f
f951: internal compiler error: in find_typebound_proc_uop, at
fortran/class.c:2711
Please submit a full bug report,
with preprocessed source if appropriate.
See <file:///usr/share/doc/gcc-snapshot/README.Bugs> for instructions.
$ /usr/lib/gcc-snapshot/bin/gfortran --version
GNU Fortran (Debian 20130113-1) 4.8.0 20130113 (experimental) [trunk revision
195136]
...
HTH,
Sylwester
