Subversion Repositories openrisc

! { dg-do run }

! Wide chracter I/O test 1, formatted and mixed kind

! Test case developed by Jerry DeLisle 

program test1

  integer, parameter :: k4 = 4

  character(len=10,kind=4) :: wide

  character(len=10,kind=1) :: thin

  character(kind=1,len=25) :: buffer

  wide=k4_"Goodbye!"

  thin="Hello!"

  write(buffer, '(a)') wide

  if (buffer /= "Goodbye!") call abort

  open(10, form="formatted", access="stream", status="scratch")

  write(10, '(a)') thin

  rewind(10)

  read(10, '(a)') wide

  if (wide /= k4_"Hello!") call abort

  write(buffer,*) thin, ">",wide,"<"

  if (buffer /= " Hello!    >Hello!    <") call abort

end program test1