! { dg-do run }
! { dg-options "-funsigned" }
! Test some list-directed I/O
program main
  implicit none
  unsigned :: uw, ur, vr
  unsigned(kind=8) :: u8
  uw = 10u
  open (10, status="scratch")
  write (10,*) uw,-1
  rewind 10
  read (10,*) ur,vr
  if (ur /= 10u .or. vr /= 4294967295u) error stop 1
  rewind 10
  write (10,*) 17179869184u_8
  rewind 10
  read (10,*) u8
  if (u8 /= 17179869184u_8) error stop 2
end program main