! { dg-do run }
! { dg-options "-funsigned" }
! Test some basic formatted I/O.

program main
  unsigned :: u
  open (10,status="scratch")
  write (10,'(I4)') 1u
  write (10,'(I4)') -1
  rewind 10
  read (10,'(I4)') u
  if (u /= 1u) error stop 1
  read (10,'(I4)') u
  if (u /= 4294967295u) error stop 2
end program main