Subversion Repositories openrisc_me

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

!

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" } }