gcc/testsuite/gfortran.dg/error_recovery_1.f90

   1 ! { dg-do compile }
   2 ! PR fortran/24549 (and duplicate PR fortran/27487)
   3 module gfcbug29_import
   4   interface
   5      subroutine foo (x) ! { dg-warning "wrong number of arguments" }
   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
  10 end module gfcbug29_import
  11
  12 subroutine FOO ! { dg-warning "wrong number of arguments" }
  13     X :: I
  14     equivalence (I,I)
  15 end