URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [generic_4.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! reduced testcase from PR 17740`	`! reduced testcase from PR 17740`
`module FOO`	`module FOO`

`interface BAR`	`interface BAR`
`module procedure BAR2`	`module procedure BAR2`
`end interface`	`end interface`

`contains`	`contains`

`elemental integer function BAR2(X)`	`elemental integer function BAR2(X)`
`integer, intent(in) :: X`	`integer, intent(in) :: X`
`BAR2 = X`	`BAR2 = X`
`end function`	`end function`

`subroutine BAZ(y,z)`	`subroutine BAZ(y,z)`
`integer :: Y(3), Z(3)`	`integer :: Y(3), Z(3)`
`Z = BAR(Y)`	`Z = BAR(Y)`
`end subroutine`	`end subroutine`

`end module`	`end module`

`use foo`	`use foo`
`integer :: y(3), z(3)`	`integer :: y(3), z(3)`
`y = (/1,2,3/)`	`y = (/1,2,3/)`
`call baz(y,z)`	`call baz(y,z)`
`if (any (y /= z)) call abort ()`	`if (any (y /= z)) call abort ()`
`end`	`end`

`! { dg-final { cleanup-modules "FOO" } }`	`! { dg-final { cleanup-modules "FOO" } }`