aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/write_a_1.f90
blob: 18cb103cbe7c35609e7838e40a6a71dc5ba71b39 (plain)
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