gcc/testsuite/gfortran.dg/pr20124.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! pr 20124
   5       character*80 line
   6       x = -.01
   7       y = .01
   8       write(line,'(2f10.2)') x, y
   9       if (line.ne.'     -0.01      0.01') call abort
  10       end