http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60774
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2014-04-08
Ever confirmed|0 |1
--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed from 4.5 to 4.9 (trunk). Compiling the following reduced tests
program energy
implicit none ! all dble
integer(kind=4)::ns ! size of spatial lattice
integer(kind=4)::i,j,k,l
integer(kind=4),allocatable::back(:,:) ! works up to 20,10
integer(kind=4)::di,index
doubleprecision,allocatable::sumffi(:)
doubleprecision,allocatable::f(:,:,:,:) ! the dimensionless field
go to 123
do di = 0, ns/2
sumffi(di) = sumffi(di) + f(i,j,k,l)*f(back(i,di),j,k,l)
end do
123
contains
function T(i,j,k,l,iu,ju,ku,lu,id,jd,kd,ld) ! only what depends on ijkl
doubleprecision::T
integer(kind=4)::i,j,k,l,iu,id,ju,jd,ku,kd,lu,ld
T = f(i,j,k,l)*( f(i,j,k,l) - f(iu,j,k,l) - f(id,j,k,l) )
end function T
end program energy
gives and ICE with 4.5, the error
pr60774_red.f90:13.3:
123
1
Warning: Ignoring statement label in empty statement at (1)
pr60774_red.f90:9.11:
go to 123
1
Error: Label 123 referenced at (1) is never defined
with 4.6 and 4.7, and
pr60774_red.f90:13.3:
123
1
Warning: Ignoring statement label in empty statement at (1)
<During initialization>
Error: Label 1119913824 referenced at (1) is never defined
with 4.8 and 4.9 (and an ICE with my working tree!-).
