11 lines
210 B
Fortran
11 lines
210 B
Fortran
|
! { 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') call abort
|
||
|
end
|