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