public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/26119]  New: ICE on transpose with specific compiler option
@ 2006-02-06 10:08 iguchi at coral dot t dot u-tokyo dot ac dot jp
  2006-02-06 13:14 ` [Bug fortran/26119] " pinskia at gcc dot gnu dot org
                   ` (5 more replies)
  0 siblings, 6 replies; 7+ messages in thread
From: iguchi at coral dot t dot u-tokyo dot ac dot jp @ 2006-02-06 10:08 UTC (permalink / raw)
  To: gcc-bugs

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


^ permalink raw reply	[flat|nested] 7+ messages in thread
end of thread, other threads:[~2006-05-08 17:48 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2006-02-06 10:08 [Bug fortran/26119] New: ICE on transpose with specific compiler option iguchi at coral dot t dot u-tokyo dot ac dot jp
2006-02-06 13:14 ` [Bug fortran/26119] " pinskia at gcc dot gnu dot org
2006-02-06 15:54 ` kargl at gcc dot gnu dot org
2006-05-07 13:50 ` fxcoudert at gcc dot gnu dot org
2006-05-08  4:35 ` iguchi at coral dot t dot u-tokyo dot ac dot jp
2006-05-08  5:02 ` pinskia at gcc dot gnu dot org
2006-05-08 17:48 ` sgk at troutmask dot apl dot washington dot edu

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).