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

Reply via email to