! { dg-do compile }
! { dg-options "-funsigned" }
! Test that overflow warned about.
program main
  unsigned(1) :: u
  u = 256u_1 ! { dg-warning "Unsigned constant truncated" }
  u = -127u_1
  u = 255u_1
  u = -129u_1 ! { dg-warning "Unsigned constant truncated" }
end