! { dg-do run }
! { dg-options "-funsigned" }
! Test some arithmetic and selected_unsigned_kind.
program memain
  unsigned :: u, v
  integer, parameter :: u1 = selected_unsigned_kind(2), &
       u2 = selected_unsigned_kind(4), &
       u4 = selected_unsigned_kind(6), &
       u8 = selected_unsigned_kind(10)
  u = 1u
  v = 42u
  if (u + v /= 43u) then
     error stop 1
  end if
  if (u1 /= 1 .or. u2 /= 2 .or. u4 /= 4 .or. u8 /= 8) error stop 2
end program memain