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

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR 22607: PURE/ELEMENTAL return-by-reference functions`	`! PR 22607: PURE/ELEMENTAL return-by-reference functions`
`program main`	`program main`
`implicit none`	`implicit none`
`character(2), dimension(2) :: a, b`	`character(2), dimension(2) :: a, b`
`a = 'ok'`	`a = 'ok'`
`b = fun(a)`	`b = fun(a)`
`if (.not.all(b == 'ok')) call abort()`	`if (.not.all(b == 'ok')) call abort()`
`contains`	`contains`
`elemental function fun(a)`	`elemental function fun(a)`
`character(*), intent(in) :: a`	`character(*), intent(in) :: a`
`character(len(a)) :: fun`	`character(len(a)) :: fun`
`fun = a`	`fun = a`
`end function fun`	`end function fun`
`end program main`	`end program main`