Subversion Repositories openrisc

! Contributed by Tobias Burnus 

! { dg-do run }

program test

  implicit none

  real, volatile, allocatable :: A(:)

  logical, volatile :: mask(11)

  A = [1,2,3,5,6,1,35,3,7,-3,-47]

  mask = .true.

  mask(7) = .false.

  mask(11) = .false.

  call sub2 (minloc(A),11)

  call sub2 (maxloc(A, mask=mask),9)

  A = minloc(A)

  if (size (A) /= 1 .or. A(1) /= 11) call abort ()

contains

  subroutine sub2(A,n)

    integer :: A(:),n

    if (A(1) /= n .or. size (A) /= 1) call abort ()

  end subroutine sub2

end program test