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

[Joost.VandeVondele at mat dot ethz.ch]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68283

Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code
                 CC|                            |Joost.VandeVondele at mat dot ethz
                   |                            |.ch

--- Comment #2 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> ---
(In reply to Dominique d'Humieres from comment #1)
> Did you provide the right test? The one (duplicated?) in comment 0 does not
> compile

yes, it is an ice-on-invalid-code, to avoid confusion with the pasting mess in
comment #0, here it is again:

> cat bug.f90
MODULE neb_utils
  INTEGER, PARAMETER :: dp=8
  TYPE neb_var_type
     REAL(KIND=dp), DIMENSION(:, :),  POINTER  :: xyz, int, wrk
  END TYPE neb_var_type
  IMPLICIT NONE
CONTAINS
  RECURSIVE SUBROUTINE get_neb_force(&
      )
    INTEGER, INTENT(IN)                      :: i
    TYPE(neb_var_type), POINTER              :: forces
    REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: dtmp1, wrk
       dtmp1       = forces%wrk(:,i)- &
    dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent
  END SUBROUTINE get_neb_force
END MODULE neb_utils