gcc/testsuite/gfortran.dg/pr85357.f90


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" }