https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71230
Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|RESOLVED |REOPENED
Resolution|FIXED |---
--- Comment #17 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch>
---
This seems not yet fully fixed. While comment #10 doesn't fail any more in its
reduced form, I still get:
> cat bug.f90
MODULE ai_coulomb_test
INTEGER, PARAMETER :: dp=8
INTERFACE
SUBROUTINE g2gemint(intabc,la_max,npgfa,zeta,a,lb_max,npgfb,zetb,b,&
lr_max,ls_max,ngemc,zetc,c,nderivative)
INTEGER, PARAMETER :: dp=8
REAL(KIND=dp), &
DIMENSION(:, :, :, :, :, :), &
INTENT(INOUT) :: intabc
REAL(KIND=dp), DIMENSION(:), INTENT(IN) :: zeta, a
REAL(KIND=dp), DIMENSION(:), INTENT(IN) :: zetb, b
REAL(KIND=dp), DIMENSION(:, :, :), &
INTENT(IN) :: zetc
REAL(KIND=dp), DIMENSION(:), INTENT(IN) :: c
END SUBROUTINE
END INTERFACE
PRIVATE
PUBLIC :: eri_test
CONTAINS
SUBROUTINE eri_test (iw)
IF ( iw>0 ) THEN
DO l=0,lmax
WRITE(iw,'(A,T40,A,T66,F15.3)') " Performance [Mintegrals/s]
",i2c(l),perf
END DO
END IF
CALL geminal_test2 (iw)
CALL geminal_test4 (iw)
END SUBROUTINE eri_test
SUBROUTINE geminal_test2 (iw)
DO ma=0,la
DO mb=0,lb
DO mc=0,lc
DO md=0,ld
DO iax=0,ma
DO iay=0,ma-iax
DO ibx=0,mb
DO iby=0,mb-ibx
DO icx=0,mc
DO icy=0,mc-icx
DO idx=0,md
DO idy=0,md-idx
res1=os(na,nb,nc,nd)
END DO
END DO
END DO
END DO
END DO
END DO
END DO
END DO
END DO
END DO
END DO
END DO
END SUBROUTINE geminal_test2
SUBROUTINE geminal_test4 (iw)
REAL(KIND=dp) :: d1, da, db, dc, delta, dmax, &
xa, xb, xc, xd, xr, xs
REAL(KIND=dp), ALLOCATABLE, &
DIMENSION(:, :, :, :, :, :) :: iabc1m, iabc1p, iabc2m, &
iabc2p, iabc3m, iabc3p, iabcd
REAL(KIND=dp), DIMENSION(2, 2, 1) :: za, zb
REAL(KIND=dp), DIMENSION(3) :: a, b, c, d
REAL(KIND=dp), DIMENSION(6) :: ra, rb
CALL g2gemint(iabc2p,la,1,(/xa/),a,lc,1,(/xb/),c,llb,llb,1,zb,rb,0)
CALL g2gemint(iabc2m,la,1,(/xa/),a,lc,1,(/xb/),c,llb,llb,1,zb,rb,0)
iabc2p = (iabc2p-iabc2m)/delta
END SUBROUTINE geminal_test4
END MODULE ai_coulomb_test
> gfortran -c -g -O3 -ffast-math -fprefetch-loop-arrays bug.f90
bug.f90:20:0:
SUBROUTINE eri_test (iw)
in pp_string, at pretty-print.c:937
0x13ee657 pp_string
../../gcc/gcc/pretty-print.c:937
0x13ee657 pp_string(pretty_printer*, char const*)
../../gcc/gcc/pretty-print.c:935
0x13ef1d6 pp_format(pretty_printer*, text_info*)
../../gcc/gcc/pretty-print.c:579
0x13ea0a1 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
../../gcc/gcc/diagnostic.c:823
0x13eb905 internal_error(char const*, ...)
../../gcc/gcc/diagnostic.c:1258
0x8f9b98 gimple_check_failed(gimple const*, char const*, int, char const*,
gimple_code, tree_code)
../../gcc/gcc/gimple.c:1174
0xd6a90b GIMPLE_CHECK2<const gassign*>
../../gcc/gcc/gimple.h:73
0xd5f267 zero_one_operation
../../gcc/gcc/tree-ssa-reassoc.c:1250
0xd66cc8 undistribute_ops_list
../../gcc/gcc/tree-ssa-reassoc.c:1604
0xd67758 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5252
0xd67597 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5382
0xd67597 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5382
0xd67597 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5382
0xd67597 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5382
0xd67597 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5382
0xd67597 reassociate_bb
../../gcc/gcc/tree-ssa-reassoc.c:5382
0xd69d73 do_reassoc
../../gcc/gcc/tree-ssa-reassoc.c:5496
0xd69d73 execute_reassoc
../../gcc/gcc/tree-ssa-reassoc.c:5583
0xd69d73 execute
../../gcc/gcc/tree-ssa-reassoc.c:5622
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.
