[Bug fortran/17847] New: internal compiler error

["ole at scali dot no" <gcc-bugzilla at gcc dot gnu dot org>]

solv_cap.f90: In function 'fourir2dx':
solv_cap.f90:338: internal compiler error: in gfc_conv_ss_descriptor, at
fortran/trans-array.c:1264
Please submit a full bug report,


First line is line 307:
  subroutine Fourir2DX(X, K)
    !
    ! Double-sized C-Fourier transform 2-dim array. Only 2 of 4 quadrants,
    ! using that for real charges, in Fourier space: X(-p) = conjg(X(p))
    !
    complex(kind=dp), intent(in out), dimension(0:,0:)  :: X
    integer,          intent(in)                        :: K
    complex(kind=dp), dimension( max(Ng1,Ng2)/2 )       :: E
    complex(kind=dp), dimension( 0 : 2*max(Ng1,Ng2)-1 ) :: temp
    integer  :: i,j

    if(K==1) then
      do i=0,Ng1-1
        temp(:Ng2-1) = X(i,:Ng2-1)
        temp(Ng2:2*Ng2-1) = 0
        call fourir(temp, temp, 2*Ng2, K, E, UseOld=min(i,1))
        X(i,:) = temp(:Ng2)
      end do
      do j=0,Ng2
        temp(:Ng1-1) = X(:Ng1-1,j)  <======== THIS IS LINE 338.
        temp(Ng1:2*Ng1-1) = 0
        call fourir(temp, temp, 2*Ng1, K, E, UseOld=min(j,1))
        X(:,j) = temp(:2*Ng1-1)
      end do
    else
      do j=0,Ng2
        temp(:2*Ng1-1) = X(:,j)
        call fourir(temp, temp, 2*Ng1, K, E, UseOld=min(j,1))
        X(:Ng1-1,j) = temp(:Ng1-1)
      end do
      do i=0,Ng1-1
        temp((/0, Ng2/))    = X(i,(/0, Ng2/))
        temp(1:Ng2-1)       = 2*X(i,1:Ng2-1)
        temp(Ng2+1:2*Ng2-1) = 0
        call fourir(temp, temp, 2*Ng2, K, E, UseOld=min(i,1))
        X(i,:) = temp(:Ng2)
      end do
    end if

    return  
  end subroutine Fourir2DX

-- 
           Summary: internal compiler error
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ole at scali dot no
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: gcc version 4.0.0 20041003 (experimental)
  GCC host triplet: /home/ole/gfortran/irun/bin/../lib/gcc/i686-pc-linux-
                    gnu/4.0.0/s
GCC target triplet: ../gcc/configure --enable-languages=c,f95 --
                    prefix=/usr/work/200


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