http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51058
--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-11-10
14:22:48 UTC ---
Revision 181251 fixes the ICEs for the codes in comment #0 and #1 (thanks).
However at revision 181255 compiling the original mdbx.f90, the extracted
subroutine, or the reduced test
!*==MLIST.spg processed by SPAG 6.55Dc at 09:26 on 23 Sep 2005
SUBROUTINE MLIST(Lmethd)
IMPLICIT DOUBLE PRECISION(A-H,O-Z)
PARAMETER (NM=16384)
COMMON /COUNT / NFI , LCOunt , LISter , KNTsta , KNTgor , LEP , &
& MANyon
COMMON /LCS / X0(3,-2:NM) , X(3,-2:NM,5) , XIN(3,-2:NM)
DO i = 1 , MOLsp
boxjmp = PBCx*INT(X0(1,i)+SIGN(HALf,X0(1,i)))
X0(1,i) = X0(1,i) - boxjmp
XIN(1,i) = XIN(1,i) - boxjmp
boxjmp = PBCy*INT(X0(2,i)+SIGN(HALf,X0(2,i)))
X0(2,i) = X0(2,i) - boxjmp
XIN(2,i) = XIN(2,i) - boxjmp
boxjmp = PBCz*INT(X0(3,i)+SIGN(HALf,X0(3,i)))
X0(3,i) = X0(3,i) - boxjmp
XIN(3,i) = XIN(3,i) - boxjmp
ENDDO
END
fails with
mlist_red_1.f90: In function 'mlist':
mlist_red_1.f90:2:0: internal compiler error: Segmentation fault
The segmentation fault goes away when compiling under gdb.
