17 lines
428 B
Fortran
17 lines
428 B
Fortran
! ( 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" } }
|