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'
14end subroutine aa
15end module
16