| ! { dg-do compile } | |
| 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 | |
| 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 ! { dg-error "Symbol 'dot_product_band' at .1. has no IMPLICIT type" } | |
| END SUBROUTINE get_neb_force | |
| END MODULE neb_utils |