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