Subversion Repositories openrisc

! { 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