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> 5program 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') 13end 14