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