! { dg-do run}
! Checks that array transfers correctly use the separate charlen
! argument.
program arrayio_7
  character(len=2**25) :: a(2)
  a = 'x'
  open(10, form="unformatted", access="sequential", status="scratch")
  write (10) a
  close (10)
end program arrayio_7