blob: 8f2e3d10a1354c84a387b5406b2ebbc3fb06f345 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=f2003" }
!
program main
interface
subroutine foo()
end
integer function bar()
end
end interface
contains
subroutine test()
end ! { dg-error "Fortran 2008: END statement instead of END SUBROUTINE" }
end subroutine ! To silence successive errors
end program
subroutine test2()
contains
integer function f()
f = 42
end ! { dg-error "Fortran 2008: END statement instead of END FUNCTION" }
end function ! To silence successive errors
end subroutine test2