[Bug fortran/26119] New: ICE on transpose with specific compiler option

[iguchi at coral dot t dot u-tokyo dot ac dot jp]

In Mac OSX ver. 10.3, I got following internal compiler error.

$ gfortran --version
GNU Fortran 95 (GCC) 4.2.0 20060129 (experimental)
Copyright (C) 2006 Free Software Foundation, Inc.

GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING

$ cat ice.f90
       subroutine foo(wk0,g1,g2,ia0,ia1,n2)
       implicit none
       integer           :: n2
       double precision  :: a3(3,3)
       double precision  :: a4(3,3)
       character*72      :: g1(n2)
       character*72      :: g2(n2)
       integer           :: ia0
       integer           :: ia1
       double precision  :: wk0(3)

       integer          :: g,ia2,ia3,ia4,ia5,ia6,ia7,ia8,ia9,j,k,k1,k2,n
       integer          :: wk2(3),wk3(n2),wk6(1)
       double precision :: a1(3,3),a2(3,3),wk1(n2),wk4(3),wk5(3)
       double precision :: a5(n2,3) , b 

       wk1(1:3) = 0.0
       do k=1,n
         call f(.true., a3(:,:), g1(ia9), a1, wk4 ,0, 0) 
         call f(.true., a3(:,:), g2(ia9), a2, wk5, 0, 0)
         if (g(a1,wk4) == 0) return   
         a1 = MATMUL(TRANSPOSE(a4) , a5) 
       enddo

       if (b < 1.0) then 
         k1 = 0 
         k2 = 0
         b = 1.0
         ia2 = 1
         ia3 = 1
         ia5 = 1
         ia6 = 1
         ia7 = 1
         ia8 = 1
         j = 1
         wk1(1:4) = wk1(wk3(1:4))
         wk2(1) = 1
         wk6 = maxloc(wk1(1:3))
       endif
     end subroutine

$ gfortran -c -ggdb ice.f90
ice.f90: In function 'foo':
ice.f90:21: internal compiler error: in gfc_conv_array_transpose, at
fortran/trans-array.c:718
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 
           Summary: ICE on transpose with specific compiler option
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: iguchi at coral dot t dot u-tokyo dot ac dot jp


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