[Bug fortran/33149] New: internal compiler error: in gfc_conv_constant

["hirmic at web dot de" <gcc-bugzilla at gcc dot gnu dot org>]

GCC Version:
gcc (GCC) 4.1.2 20061115 (prerelease) (SUSE Linux)

OS:
Linux s24n160 2.6.18.2-34-default #1 SMP Mon Nov 27 11:46:27 UTC 2006 i686 i686
i386 GNU/Linux

Command-line
gfortran -c -Wall -Wsurprising  -I../lib.f/ ../lib.f/bomec_func.f95 -o
../lib.f/bomec_func.o

Error message:
../lib.f/bomec_func.f95: In function ?get_cand?:
../lib.f/bomec_func.f95:5: internal compiler error: in gfc_conv_constant, at
fortran/trans-const.c:348

bomec_func.f95 and omec_globals:
module bomec_func
  use omec_globals
  implicit none
  contains
    function bomec_step(fm,old,new,ncl,ppart,psub)
    implicit none
    integer, intent(IN) :: ppart(:,:)
    real(sng) :: bomec_step,maxgain=0.0
    real(sng),intent(IN) :: fm(:,:)
    integer, intent(IN)  :: old(:,:)
    integer, intent(OUT) :: new(:,:)
    integer :: psub(:,:),lenps,lenew=0
    integer :: ncl,i

    do i=1,ncl
      call get_psub(old(i,:),ppart,psub,lenps)
      call get_cand(fm,old(i,:),maxgain,psub,lenps,new,lenew)
    enddo

    bomec_step = maxgain
    end function bomec_step

    subroutine get_ppart(fm,ppart)
    implicit none
    real(sng), intent(IN) :: fm(:,:)
    real(sng), intent(OUT) :: ppart(:,:)
    integer :: shp(2),i,j,cnt,lenppart,ndim
    shp  = shape(fm)
    ndim = shp(1)
    cnt  = 1
    do i = 1,ndim-1
      do j = i+1,ndim
        if (fm(i,j) .gt. 0.0) then
            ppart(cnt,:) = (/i,j/)
            cnt=cnt+1
        endif
      end do
    end do  
    end subroutine get_ppart

    subroutine get_psub(cl,ppart,psub,lenps)
    integer, intent(IN) :: cl(:),ppart(:,:)
    integer, intent(OUT) :: psub(:,:),lenps
    integer :: npos,i
    npos = size(ppart)/2
    lenps=0
    psub=0
    do i=1,npos
       if (cl(ppart(i,1)) /= cl(ppart(i,2))) then
          lenps=lenps+1
          psub(lenps,:)=ppart(i,:)
       endif
    enddo
    end subroutine get_psub

    subroutine get_cand(fm,cl,maxgain,psub,lenps,new,lenew)
    integer, intent(IN) :: cl(:),psub(:,:),lenps
    integer, intent(INOUT) :: new(:,:),lenew 
    real(sng), intent(IN) :: fm(:,:)
    real(sng), intent(INOUT) :: maxgain
    real(sng) :: gain
    integer  :: i,j,k,ndim=size(cl)
    do i=1,lenps
      gain = 0.0
      do j=1,ndim-1
        do k=j+1,ndim
!          if (cl(j)==psub(i,1) .and. cl(k)==psub(i,2) .or. &
!              cl(j)==psub(i,2) .and. cl(k)==psub(i,1)) gain=gain+fm(j,k)
        end do
      end do  
    enddo
    end subroutine get_cand

end module bomec_func

module omec_globals
  integer, parameter :: dbl=kind(0d0),sng=kind(0.0)
  logical :: done = .false.
end module omec_globals


-- 
           Summary: internal compiler error: in gfc_conv_constant
           Product: gcc
           Version: 4.1.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: hirmic at web dot de
  GCC host triplet: 4.1.2


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