blob: 8f2e3d10a1354c84a387b5406b2ebbc3fb06f345 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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
|
