[Bug fortran/16861] segfault with doubly used module

["yosef at phys dot utb dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From yosef at phys dot utb dot edu  2005-04-19 01:09 -------
Hi,
   The patch seems to fix part of the problem (the simplified test
code from comment 4 now compiles), but the original code that
I submitted still causes gfortran to segfault. I simplified my original
code to the following test code that also causes gfortran (with the
patch) to segfault.

module MOD1
  implicit none
  INTEGER, dimension(2) :: lsh
end module MOD1

module MOD2
  implicit none
contains
  subroutine SUB1(J1)
    use MOD1
    implicit none

    !input variables
    COMPLEX, dimension(lsh(1),lsh(2)), intent(inout) :: J1

  end subroutine SUB1
end module MOD2

module MOD3
    use MOD1
    use MOD2
end module MOD3

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16861