1! pr 15311
2! output with 'A' edit descriptor
3      program write_a_1
4      character*25 s
5! string = format
6      write(s,'(A11)') "hello world"
7      if (s.ne."hello world") call abort
8! string < format
9      write(s,'(A2)') "hello world"
10      if (s.ne."he") call abort
11! string > format
12      write(s,'(A18)') "hello world"
13      if (s.ne."       hello world") call abort
14      end
15