gcc/testsuite/gfortran.dg/pr68283.f90

   1 ! { dg-do compile }
   2 MODULE 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
   8 CONTAINS
   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
  15 END MODULE neb_utils