https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68283
--- Comment #11 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Even further reduced
MODULE neb_utils
IMPLICIT NONE
INTEGER, PARAMETER :: dp=8
TYPE neb_var_type
REAL(KIND=dp), DIMENSION(:, :), POINTER :: xyz, int, wrk
END TYPE neb_var_type
CONTAINS
RECURSIVE SUBROUTINE get_neb_force(&
)
INTEGER :: i
TYPE(neb_var_type), POINTER :: forces
REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: dtmp1, wrk
dtmp1 = forces%wrk(:,i)-dot_product_band
END SUBROUTINE get_neb_force
END MODULE neb_utils
dtmp1 = forces%wrk(:,i)-dot_product_band
1
Error: Symbol 'dot_product_band' at (1) has no IMPLICIT type
f951: internal compiler error: gfc_variable_attr(): Bad array reference
