blob: 0e3f34d6664a5c19120e0f7ddc759ab0577072ee [file] [log] [blame]
! { dg-do run }
! { dg-options "-std=legacy" }
!
! pr 20124
character*80 line
x = -.01
y = .01
write(line,'(2f10.2)') x, y
if (line.ne.' -0.01 0.01') STOP 1
end