! { dg-do run }
!
! Check that the code necessary to evaluate MINLOC's or MAXLOC's MASK
! argument is correctly generated.

program p
  implicit none
  integer, parameter :: data10(*) = (/ 2, 5, 2, 0, 6, 5, 3, 6, 0, 1 /)
  logical, parameter :: mask10(*) = (/ .false., .true., .false., &
                                       .false., .true., .true.,  &
                                       .true. , .true., .false., &
                                       .false. /)
  type bool_wrapper
    logical :: l
  end type
  call check_minloc
  call check_maxloc
contains
  subroutine check_minloc
    integer :: a(10)
    integer :: r
    a = data10
    r = minloc(a, dim = 1, mask = sum(a) > 0)
    if (r /= 4) stop 11
  end subroutine
  subroutine check_maxloc
    integer :: a(10)
    integer :: r
    a = data10
    r = maxloc(a, dim = 1, mask = sum(a) > 0)
    if (r /= 5) stop 18
  end subroutine
end program