------- Comment #4 from iguchi at coral dot t dot u-tokyo dot ac dot jp
2006-05-08 04:35 -------
I believe that this bug still exists since the below testcase would be a
duplicated one.
$ gfortran -v
Using built-in specs.
Target: powerpc-apple-darwin7.9.0
Configured with: ../gcc/configure --prefix=/usr/local/gfortran
--enable-languages=c,fortran --with-gmp=/tmp/gfortran-20060424/gfortran_libs
--enable-bootstrap
Thread model: posix
gcc version 4.2.0 20060423 (experimental)
$ cat ice.f90
subroutine f(a,b,m,n,c,r)
implicit none
logical :: m
integer :: n
double precision :: a(1)
double precision :: b(1,n)
double precision :: c(1,1)
double precision :: r(1,1)
integer :: i
double precision :: h(1),p(1,1),q(1,1),s(1,1),v
double precision,parameter :: e(1,1) = reshape((/0/), (/1,1/) )
logical :: l
external d
call d(c(:,:),1,q,v)
p = c(:,:)
s = matmul(p,transpose(q)) - e
if (m) then
if (l) continue
endif
c(:,:) = p
call d(c,1,1,1)
if (.true.) then
do i=1,1
h(1)=b(1,1)
enddo
endif
end subroutine
$ gfortran -c -O2 ice.f90
ice.f90: In function 'f':
ice.f90:16: internal compiler error: in gfc_conv_array_transpose, at
fortran/trans-array.c:726
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26119
