[Bug fortran/15953] New: ICE with segmentation fault on valid code

["Mart dot Rentmeester at sci dot kun dot nl" <gcc-bugzilla at gcc dot gnu dot org>]

function number_of_digits(s,n) result(d)

      implicit none
      integer, intent(in)       :: n  
      character(*), intent(in)  :: s(n)
      integer                   :: d
      integer                   :: i,j   


      d = 0
      do i=1,n
          do j=20,15,-1
              if (s(i)(j:j) /= '0') exit
          enddo
          d = max(d,j-14)
      enddo

      end function number_of_digits


Configured with: ../configure --enable-languages=c,f95 
--prefix=/opt32/gcc-2004-06-09 --with-gmp=/opt32/gmp --with-gnu-as 
--with-as=/opt32/binutils/bin/as --enable-threads --disable-shared --disable-nls
Thread model: posix
gcc version 3.5.0 20040611 (experimental)
 /OPT/32/gcc-2004-06-09/libexec/gcc/hppa2.0w-hp-hpux11.11/3.5.0/f951 n1.f95 
-quiet -dumpbase n1.f95 -auxbase n1 -version -o /var/tmp//ccKaEzqh.s
GNU F95 version 3.5.0 20040611 (experimental) (hppa2.0w-hp-hpux11.11)
        compiled by GNU C version 3.5.0 20040611 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
n1.f95: In function `number_of_digits':
n1.f95:1: internal compiler error: Segmentation fault

-- 
           Summary: ICE with segmentation fault on valid code
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Mart dot Rentmeester at sci dot kun dot nl
                CC: gcc-bugs at gcc dot gnu dot org


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