gcc/testsuite/gfortran.dg/fmt_tl.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR25631 Check that TL editing works for special case of no bytes written yet.
   5 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   6       real x
   7       character*15 line
   8       x = 12.34
   9       write(line,10) x
  10  10   format(tr2,tl2,g11.4)
  11       if (line.ne.'  12.34        ') call abort()
  12       write(line,20) x
  13  20   format(tr5,tl3,g11.4)
  14       if (line.ne.'    12.34      ') call abort()
  15       write(line,30) x
  16  30   format(tr5,tl3,tl3,g11.4)
  17       if (line.ne.'  12.34        ') call abort()
  18       write(line,40) x
  19  40   format(tr25,tl35,f11.4)
  20       if (line.ne.'    12.3400    ') call abort()
  21       write(line,50) x
  22  50   format(tl5,tr3,f11.4)
  23       if (line.ne.'       12.3400 ') call abort()
  24       write(line,60) x
  25  60   format(t5,tl3,f11.4)
  26       if (line.ne.'     12.3400   ') call abort()
  27       end