! pr 15311
! output with 'A' edit descriptor
      program write_a_1
      character*25 s
! string = format
      write(s,'(A11)') "hello world"
      if (s.ne."hello world") STOP 1
! string < format
      write(s,'(A2)') "hello world"
      if (s.ne."he") STOP 2
! string > format
      write(s,'(A18)') "hello world"
      if (s.ne."       hello world") STOP 3
      end