blob: 81f74129fe93cc4427a448e9f3912cc6f0fa9e82 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
