1! { dg-do compile }
2MODULE neb_utils
3  IMPLICIT NONE
4  INTEGER, PARAMETER :: dp=8
5  TYPE neb_var_type
6     REAL(KIND=dp), DIMENSION(:, :),  POINTER  :: xyz, int, wrk
7  END TYPE neb_var_type
8CONTAINS
9  SUBROUTINE get_neb_force()
10    INTEGER                                  :: i
11    TYPE(neb_var_type), POINTER              :: forces
12    REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: dtmp1, wrk
13    dtmp1 = forces%wrk(:,i)-dot_product_band ! { dg-error "Symbol 'dot_product_band' at .1. has no IMPLICIT type" }
14  END SUBROUTINE get_neb_force
15END MODULE neb_utils
16