! { 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 |