| ! { 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' ! { dg-error "Unexpected WRITE statement in CONTAINS section" } | |
| end subroutine aa ! { dg-error "Expecting END MODULE statement" } | |
| end module |