1! { dg-do compile }
2! Tests the fix for PR27701, in which two same name procedures
3! were not diagnosed if they had no arguments.
4!
5! Contributed by Arjen Markus  <arjen.markus@wldelft.nl>
6!
7module aha
8contains
9subroutine aa ! { dg-error "Procedure" }
10   write(*,*) 'AA'
11end subroutine aa
12subroutine aa ! { dg-error "is already defined" }
13   write(*,*) 'BB' ! { dg-error "Unexpected WRITE statement in CONTAINS section" }
14end subroutine aa ! { dg-error "Expecting END MODULE statement" }
15end module
16