2 ! PR39304 write of 0.0 with F0.3 gives **
3 ! Test case developed from case provided by reporter.
8 if (str
.ne
."0.") call abort
10 if (str
.ne
."0.0") call abort
11 write (str
,'(f0.2)') x
12 if (str
.ne
."0.00") call abort
13 write (str
,'(f0.3)') x
14 if (str
.ne
."0.000") call abort
15 write (str
,'(f0.4)') x
16 if (str
.ne
."0.0000") call abort