writing a string with adjustl and trim: leading white-space character

Question

The following f90 code

  program test
  implicit none
  character(40) :: name1, name2, name3, string

  write(name1 ,\'(A)\') \'testfile_xpx_i.dat\'
  write(strin