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 11