------- 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