! { dg-do compile }
! { dg-options "-funsigned" }
module use_c_binding
  use iso_c_binding
  implicit none
  unsigned(c_unsigned), bind(c) :: a
  unsigned(c_unsigned_short), bind(c) :: b
  unsigned(c_unsigned_char), bind(c) :: c
  unsigned(c_unsigned_long), bind(c) :: d
  unsigned(c_unsigned_long_long), bind(c) :: e
  unsigned(c_uintmax_t), bind(c) :: f
  unsigned(c_uint8_t), bind(c) :: u8
  unsigned(c_uint16_t), bind(c) :: u16
  unsigned(c_uint32_t), bind(c) :: u32
  unsigned(c_uint64_t), bind(c) :: u64
  unsigned(c_uint_fast8_t), bind(c) :: f8
  unsigned(c_uint_fast16_t), bind(c) :: f16
  unsigned(c_uint_fast32_t), bind(c) :: f32
  unsigned(c_uint_fast64_t), bind(c) :: f64
  unsigned(c_uint_least8_t), bind(c) :: l8
  unsigned(c_uint_least16_t), bind(c) :: l16
  unsigned(c_uint_least32_t), bind(c) :: l32
  unsigned(c_uint_least64_t), bind(c) :: l64
  integer, parameter :: c_128 = c_uint128_t
  integer, parameter :: fast_128 = c_uint_fast128_t
  integer, parameter :: least_128 = c_uint_least128_t
end module use_c_binding

program memain
  use use_c_binding
  use iso_fortran_env
  unsigned(uint8) :: a8
  unsigned(uint16) :: a16
  unsigned(uint32) :: a32
  unsigned(uint64) :: a64
end program memain