another ICE

[Daniel Franke]

Hi all,
this is another ICE I just came across.

Please observe the duplicate END SUBROUTINE within the module. There
seems to be a relation to user defined types, replacing
TYPE(xml_parse) by INTEGER won't crash gfortran.

$> cat ice.f90
MODULE xmlparse
TYPE xml_parse
  INTEGER :: dummy
END TYPE
END MODULE

MODULE xmlwrite
USE xmlparse
CONTAINS
  SUBROUTINE xmlwrite_open()
  END SUBROUTINE

  END SUBROUTINE xmlwrite_element(info)
    TYPE(xml_parse), INTENT(inout) :: info
  END SUBROUTINE
END MODULE

PROGRAM test_fortran_xml
  USE xmlwrite
END PROGRAM

$> gfortran-4.2 -g -Wall ice.f90
 In file ice.f90:13

  END SUBROUTINE xmlwrite_element(info)
    1
Error: Expecting END MODULE statement at (1)
ice.f90:0: internal compiler error: Segmentation fault
Please submit a full bug report,

$> gfortran -v
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../gcc/configure
--prefix=/home/daniel/nfs/packages/i686-pc-linux-gnu/gcc-4.2-svn
--enable-threads=posix --enable-shared --with-system-zlib
--enable-languages=c,c++,fortran
Thread model: posix
gcc version 4.2.0 20060914 (experimental)