gcc/testsuite/gfortran.dg/same_name_2.f90 - chromiumos/third_party/gcc - Git at Google

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