Subversion Repositories openrisc_me

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