gcc/testsuite/gfortran.dg/tl_editing.f90

   1 ! { dg-do run }
   2 ! Test of fix to bug triggered by NIST fm908.for.
   3 ! Left tabbing, followed by X or T-tabbing to the right would
   4 ! cause spaces to be overwritten on output data.
   5 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   6   program tl_editting
   7     character*10           ::  line
   8     character*10           ::  aline = "abcdefxyij"
   9     character*2            ::  bline = "gh"
  10     character*10           ::  cline = "abcdefghij"
  11     write (line, '(a10,tl6,2x,a2)') aline, bline
  12     if (line.ne.cline) call abort ()
  13   end program tl_editting
  14