! { dg-do run }
! PR39304 write of  0.0 with F0.3 gives  **
! PR47567 Small absolute values.
! Test case developed from case provided by reporter.
 REAL :: x
 CHARACTER(80) :: str
 x = 0.0
 write (str,'(f0.0)') x
 if (str.ne."0.") STOP 1
 write (str,'(f0.1)') x
 if (str.ne.".0") STOP 2
 write (str,'(f0.2)') x
 if (str.ne.".00") STOP 3
 write (str,'(f0.3)') x
 if (str.ne.".000") STOP 4
 write (str,'(f0.4)') x
 if (str.ne.".0000") STOP 5
 write (str,'(F0.0)') 0.0
 if (str.ne."0.") STOP 6
 write (str,'(F0.0)') 0.001
 if (str.ne."0.") STOP 7
 write (str,'(F0.0)') 0.01
 if (str.ne."0.") STOP 8
 write (str,'(F0.0)') 0.1
 if (str.ne."0.") STOP 9
 write (str,'(F1.0)') -0.0
 if (str.ne."*") STOP 10
 write (str,'(F1.0)') 0.001
 if (str.ne."*") STOP 11
 write (str,'(F1.0)') 0.01
 if (str.ne."*") STOP 12
 write (str,'(F1.0)') 0.1
 if (str.ne."*") STOP 13
 write (str,'(F2.0)') -0.001
 if (str.ne."**") STOP 14
 write (str,'(F2.0)') -0.01
 if (str.ne."**") STOP 15
 write (str,'(F2.0)') -0.1
 if (str.ne."**") STOP 16
 write (str,'(F0.2)') 0.0
 if (str.ne.".00") STOP 17
 write (str,'(F0.0)') -0.0
 if (str.ne."-0.") STOP 18
 write (str,'(F0.1)') -0.0
 if (str.ne."-.0") STOP 19
 write (str,'(F0.2)') -0.0
 if (str.ne."-.00") STOP 20
 write (str,'(F0.3)') -0.0
 if (str.ne."-.000") STOP 21
 write (str,'(F3.0)') -0.0
 if (str.ne."-0.") STOP 22
 write (str,'(F2.0)') -0.0
 if (str.ne."**") STOP 23
 write (str,'(F1.0)') -0.0
 if (str.ne."*") STOP 24
 write (str,'(F0.1)') -0.0
 if (str.ne."-.0") STOP 25
 write (str,'(F3.1)') -0.0
 if (str.ne."-.0") STOP 26
 write (str,'(F2.1)') -0.0
 if (str.ne."**") STOP 27
 write (str,'(F1.1)') -0.0
 if (str.ne."*") STOP 28
 END