! { dg-do run }! PR25631 Check that TL editing works for special case of no bytes written yet.! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>      real x      character*15 line      x = 12.34      write(line,10) x 10   format(tr2,tl2,g11.4)      if (line.ne.'  12.34        ') call abort()      write(line,20) x 20   format(tr5,tl3,g11.4)      if (line.ne.'    12.34      ') call abort()      write(line,30) x 30   format(tr5,tl3,tl3,g11.4)      if (line.ne.'  12.34        ') call abort()      write(line,40) x 40   format(tr25,tl35,f11.4)      if (line.ne.'    12.3400    ') call abort()      write(line,50) x 50   format(tl5,tr3,f11.4)      if (line.ne.'       12.3400 ') call abort()      write(line,60) x 60   format(t5,tl3,f11.4)      if (line.ne.'     12.3400   ') call abort()      end