https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68283
Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed: What |Removed |Added ---------------------------------------------------------------------------- Keywords| |ice-on-invalid-code CC| |Joost.VandeVondele at mat dot ethz | |.ch --- Comment #2 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> --- (In reply to Dominique d'Humieres from comment #1) > Did you provide the right test? The one (duplicated?) in comment 0 does not > compile yes, it is an ice-on-invalid-code, to avoid confusion with the pasting mess in comment #0, here it is again: > cat bug.f90 MODULE neb_utils INTEGER, PARAMETER :: dp=8 TYPE neb_var_type REAL(KIND=dp), DIMENSION(:, :), POINTER :: xyz, int, wrk END TYPE neb_var_type IMPLICIT NONE CONTAINS RECURSIVE SUBROUTINE get_neb_force(& ) INTEGER, INTENT(IN) :: i TYPE(neb_var_type), POINTER :: forces REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: dtmp1, wrk dtmp1 = forces%wrk(:,i)- & dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent END SUBROUTINE get_neb_force END MODULE neb_utils