| ! ( dg-do compile } | |
| ! Tests the fix for PR27701, in which two same name procedures | |
| ! were not diagnosed if they had no arguments. | |
| ! | |
| ! Contributed by Arjen Markus <arjen.markus@wldelft.nl> | |
| ! | |
| module aha | |
| contains | |
| subroutine aa ! { dg-error "Procedure" } | |
| write(*,*) 'AA' | |
| end subroutine aa | |
| subroutine aa ! { dg-error "is already defined" } | |
| write(*,*) 'BB' | |
| end subroutine aa | |
| end module | |
| ! { dg-final { cleanup-modules "aha" } } |