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
