! { dg-do run }
! { dg-options "-funsigned" }
! Test bit functions, huge and digits.
  unsigned :: u1, u2, u3
  u1 = 32u
  u2 = 64u
  if (ior (u1,u2) /= u1 + u2) error stop 1
  if (ior (32u,64u) /= 32u + 64u) error stop 2
  u1 = 234u
  u2 = 221u
  if (iand (u1,u2) /= 200u) error stop 3
  if (iand (234u,221u) /= 200u) error stop 4
  if (ieor (u1,u2) /= 55u) error stop 5
  if (ieor (234u,221u) /= 55u) error stop 6
  u1 = huge(u1)
  if (u1 /= 4294967295u) error stop 7
  u2 = not(0u)
  u3 = u2 - u1
  if (u3 /= 0u) error stop 8
  u2 = not(255u);
  if (u2 /= huge(u2) - 255u) error stop 9
  u1 = 255u
  u2 = not(u1)
  if (u2 /= huge(u2) - 255u) error stop 9
  if (digits(u1) /= 32) error stop 10
end