write_a_1.f90

linux下编程用 编译软件

! 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