URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [same_name_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! ( dg-do compile }`	`! ( dg-do compile }`
`! Tests the fix for PR27701, in which two same name procedures`	`! Tests the fix for PR27701, in which two same name procedures`
`! were not diagnosed if they had no arguments.`	`! were not diagnosed if they had no arguments.`
`!`	`!`
`! Contributed by Arjen Markus`	`! Contributed by Arjen Markus`
`!`	`!`
`module aha`	`module aha`
`contains`	`contains`
`subroutine aa ! { dg-error "Procedure" }`	`subroutine aa ! { dg-error "Procedure" }`
`write(,) 'AA'`	`write(,) 'AA'`
`end subroutine aa`	`end subroutine aa`
`subroutine aa ! { dg-error "is already defined" }`	`subroutine aa ! { dg-error "is already defined" }`
`write(,) 'BB'`	`write(,) 'BB'`
`end subroutine aa`	`end subroutine aa`
`end module`	`end module`
`! { dg-final { cleanup-modules "aha" } }`	`! { dg-final { cleanup-modules "aha" } }`