[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

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

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |NEW
                 CC|                            |manu at gcc dot gnu.org
            Summary|ice: gfc_variable_attr():   |[5/6 Regression] ice:
                   |Bad array reference         |gfc_variable_attr(): Bad
                   |                            |array reference

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Compiling the test with revision r215860 (2014-10-03) gives

pr68283.f90:7.15:

  IMPLICIT NONE
               1
pr68283.f90:4.19:

  TYPE neb_var_type
                   2
Error: IMPLICIT NONE statement at (1) cannot follow derived type declaration
statement at (2)
pr68283.f90:11.49:

    INTEGER, INTENT(IN)                      :: i
                                                 1
Error: Symbol at (1) is not a DUMMY variable

With revision r216098 (2014-10-10) it gives

pr68283.f90:7.15:

  IMPLICIT NONE
               1
pr68283.f90:4.19:

  TYPE neb_var_type
    INTEGER, INTENT(IN)                      :: i
                                                 1
Error: Symbol at (1) is not a DUMMY variable
pr68283.f90:15.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:15.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:15.52:

    dot_product_band(neb_env,forces%wrk(:,i),tangent,Mmatrix,error)*tangent
                                                    1
Error: Symbol 'tangent' at (1) has no IMPLICIT type
pr68283.f90:17.20:

END MODULE neb_utils
                    1
Internal Error at (1):
gfc_variable_attr(): Bad array reference

Usual suspect r215974 (pr44054).