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

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2015-11-11
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Did you provide the right test? The one (duplicated?) in comment 0 does not
compile

pr68283.f90:6:15:

   TYPE neb_var_type
                   2
      REAL(KIND=dp), DIMENSION(:, :),  POINTER  :: xyz, int, wrk

   END TYPE neb_var_type

   IMPLICIT NONE
               1

Error: IMPLICIT NONE statement at (1) cannot follow derived type declaration
statement at (2)
pr68283.f90:14:66:

     dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent
                                                                  1

Error: Symbol 'error' at (1) has no IMPLICIT type
pr68283.f90:10:49:

     INTEGER, INTENT(IN)                      :: i
                                                 1

Error: Symbol at (1) is not a DUMMY variable
pr68283.f90:14:60:

     dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent
                                                            1

Error: Symbol 'mmatrix' at (1) has no IMPLICIT type
pr68283.f90:14:28:

     dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent
                            1

Error: Symbol 'neb_env' at (1) has no IMPLICIT type
pr68283.f90:14:52:

     dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent
                                                    1

Error: Symbol 'tangent' at (1) has no IMPLICIT type

Fixing the error does not lead to any ICE.