https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63821
Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |Joost.VandeVondele at mat dot
ethz
| |.ch
--- Comment #6 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch>
---
Fortran testcase involving other types.
> cat bug.f90
SUBROUTINE calculates_green_opt()
INTEGER, PARAMETER :: dp=8
REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: green, green1
ALLOCATE(green(-nrec:nrec),stat=i_all)
DO ikern=1,nrec
green(-ikern)=gleft+gright
IF (ABS(green(ikern)) <= 1.e-20_dp) THEN
nrec=ikern
EXIT
END IF
END DO
ALLOCATE(green1(-nrec:nrec),stat=i_all)
CALL scf_recursion(nrec,green(-nrec),green1(-nrec))
END SUBROUTINE calculates_green_opt
> gfortran -c -O3 bug.f90
bug.f90:1:0:
SUBROUTINE calculates_green_opt()
^
Error: non-trivial conversion at assignment
integer(kind=8)
unsigned long
pretmp_55 = ivtmp.30_114;
bug.f90:1:0: internal compiler error: verify_gimple failed
