+
−! { 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