------- Comment #26 from hjl at lucon dot org 2006-09-01 16:10 -------
Here is a testcase:
[EMAIL PROTECTED] wrf-1]$ cat bad.f90
module bar
implicit none
public
type domain_ptr
type(domain), POINTER :: ptr
end type domain_ptr
type domain
TYPE(domain_ptr) , DIMENSION( : ) , POINTER :: parents
TYPE(domain_ptr) , DIMENSION( : ) , POINTER :: nests
end type domain
end module bar
module foo
contains
recursive subroutine integrate (grid)
use bar
implicit none
type(domain), POINTER :: grid
interface
subroutine solve_interface (grid)
use bar
TYPE (domain) grid
end subroutine solve_interface
end interface
end subroutine integrate
end module foo
[EMAIL PROTECTED] wrf-1]$ make bad.s
/usr/gcc-4.2/bin/gfortran -S -o bad.s bad.f90
gfortran: Internal error: Segmentation fault (program f951)
Please submit a full bug report.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
make: *** [bad.s] Error 1
[EMAIL PROTECTED] wrf-1]$
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28908
