! { dg-do run }
! { dg-options "-funsigned" }
program memain
  implicit none
  call test1
  call test2
contains
  subroutine test1
    unsigned, dimension(2,2) :: v
    integer(8), dimension(2,2) :: i
    v = reshape([4278255360u, 4042322160u, 3435973836u, 2863311530u],[2,2])
    i = int(v,8)
    if (iall(v) /= 2147516416u) error stop 1
    if (iany(v) /= 4294901758u) error stop 2
    if (iparity(v) /= 1771465110u) error stop 3
    if (any(iall(v,dim=1) /= [4026593280u, 2290649224u])) error stop 4
    if (any(iall(v,dim=2) /= [3422604288u, 2694881440u])) error stop 5
    if (any(iany(v,dim=1) /= [4293984240u, 4008636142u])) error stop 6
    if (any(iany(v,dim=2) /= [4291624908u, 4210752250u])) error stop 7
    if (any(iparity(v,dim=1) /= [267390960u, 1717986918u])) error stop 8
    if (any(iparity(v,dim=2) /= [869020620u, 1515870810u])) error stop 9
  end subroutine test1
  subroutine test2
    unsigned, dimension(2,2), parameter :: v &
         = reshape([4278255360u, 4042322160u, 3435973836u, 2863311530u],[2,2])
    unsigned, parameter :: v_all = iall(v), v_any = iany(v), v_parity = iparity(v)
    unsigned, parameter, dimension(2) :: v_all_1 = iall(v,dim=1), v_all_2 = iall(v,dim=2)
    unsigned, parameter, dimension(2) :: v_any_1 = iany(v,dim=1), v_any_2 = iany(v,dim=2)
    unsigned, parameter, dimension(2) :: v_parity_1 = iparity(v,dim=1), v_parity_2 = iparity(v,dim=2)
    if (v_all /= 2147516416u) error stop 10
    if (v_any /= 4294901758u) error stop 11
    if (v_parity /= 1771465110u) error stop 12
    if (any(v_all_1 /= [4026593280u, 2290649224u])) error stop 13
    if (any(v_all_2 /= [3422604288u, 2694881440u])) error stop 14
    if (any(v_any_1 /= [4293984240u, 4008636142u])) error stop 15
    if (any(v_any_2 /= [4291624908u, 4210752250u])) error stop 16
    if (any(v_parity_1 /= [267390960u, 1717986918u])) error stop 17
    if (any(v_parity_2 /= [869020620u, 1515870810u])) error stop 18
  end subroutine test2
end program memain