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/] [pure_formal_proc_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Test fix for PR30034 in which the legal, pure procedure formal`	`! Test fix for PR30034 in which the legal, pure procedure formal`
`! argument was rejected as an error.`	`! argument was rejected as an error.`
`!`	`!`
`! Contgributed by Troban Trumsko`	`! Contgributed by Troban Trumsko`
`!`	`!`
`pure subroutine s_one ( anum, afun )`	`pure subroutine s_one ( anum, afun )`
`integer, intent(in) :: anum`	`integer, intent(in) :: anum`
`interface`	`interface`
`pure function afun (k) result (l)`	`pure function afun (k) result (l)`
`implicit none`	`implicit none`
`integer, intent(in) :: k`	`integer, intent(in) :: k`
`integer :: l`	`integer :: l`
`end function afun`	`end function afun`
`end interface`	`end interface`
`end subroutine s_one`	`end subroutine s_one`