1! { dg-do compile }
2! PR fortran/24549 (and duplicate PR fortran/27487)
3module gfcbug29_import
4  interface
5     subroutine foo (x)
6       something :: dp ! { dg-error "Unclassifiable statement" }
7       real (kind=dp) :: x ! { dg-error "has not been declared or is a variable, which does not reduce to a constant expression" }
8     end subroutine foo
9  end interface
10end module gfcbug29_import
11
12subroutine FOO
13    X :: I ! { dg-error "Unclassifiable statement" }
14    equivalence (I,I)
15end
16