blob: 22f2d3d3b40c67a12585fac6cf329fd197cbd2ea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do compile }
module base
implicit none
contains
subroutine summation(i)
integer, intent(in) :: i
end subroutine
end module
module extended
use base
implicit none
contains
subroutine summation() ! { dg-error "is already defined" }
end subroutine ! { dg-error "Expecting END MODULE statement" }
end module
! { dg-prune-output "is already defined at" }
|