gcc-4_9/gcc/testsuite/gfortran.dg/advance_1.f90

   1 ! { dg-do run }
   2 ! PR25463 Check that advance='no' works correctly.
   3 ! Derived from example given in PR by Thomas Koenig
   4 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5 program pr25463
   6   character(10) :: str
   7   write (10,'(A)',advance="no") 'ab'
   8   write (10,'(TL2,A)') 'c'
   9   rewind (10)
  10   read (10, '(a)') str
  11   if (str.ne.'abc') call abort()
  12   close (10, status='delete')
  13 end