program char4_iunit_2
  implicit none
  character(kind=4,len=42),dimension(5,5) :: string
  integer :: i,j
  real :: inf, nan, large

  large = huge(large)
  inf = 2 * large
  nan = 0
  nan = nan / nan

  string = 4_"123456789x"
  print '("starting string>",a12)', string

  write(string,'(a11)') 4_"abcdefg"
  call show_string (string)
  write(string,*) 12345
  call show_string (string)
  write(string(4,3), '(i6,5x,i8,a5)') 78932, 123456, "abc"
  call show_string (string)
  print '(i6,5x,i8,a1)', 78932, 123456, "<"
  write(string, *) .true., .false. , .true.
  call show_string (string)
  write(string, *) 1.2345e-06, 4.2846e+10_8
  call show_string (string)
  write(string, *) nan, inf
  call show_string (string)
  write(string, '(f9.1)') nan, inf, 1.23, 4.56, 8.39
  call show_string (string)
  write(string(2,4), *) (1.2, 3.4 )
  call show_string (string)
end program char4_iunit_2

subroutine show_string (astring)
  character(kind=4, len=*),dimension(5,5) :: astring
  print *, "len(astring(1,1)=", len(astring(1,1))
  print '(2(a42))', astring
  print *, "done"
  do i=1,len(astring(1,1))
    write(*, '(*(i3,1x))', advance="no") ichar(astring(:,:)(i:i))
  end do
  print *
  print '(a)', "123456789012345678901234567890123456789012345678901234567890"
  print '(a,a)', astring, 4_"<"
end subroutine show_string