[Bug fortran/68283] [5/6 Regression] ice: gfc_variable_attr(): Bad array reference

[dominiq at lps dot ens.fr]

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