1 2 3 4 5 6 7 8 9 10 11 12 13 14
! 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") call abort ! string < format write(s,'(A2)') "hello world" if (s.ne."he") call abort ! string > format write(s,'(A18)') "hello world" if (s.ne." hello world") call abort end