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