+ write (str,'(F0.0)') 0.0
+ if (str.ne."0.") call abort
+ write (str,'(F0.0)') 0.001
+ if (str.ne."0.") call abort
+ write (str,'(F0.0)') 0.01
+ if (str.ne."0.") call abort
+ write (str,'(F0.0)') 0.1
+ if (str.ne."0.") call abort
+ write (str,'(F1.0)') -0.0
+ if (str.ne."0") call abort
+ write (str,'(F1.0)') 0.001
+ if (str.ne."*") call abort
+ write (str,'(F1.0)') 0.01
+ if (str.ne."*") call abort
+ write (str,'(F1.0)') 0.1
+ if (str.ne."*") call abort
+ write (str,'(F2.0)') -0.001
+ if (str.ne."*") call abort
+ write (str,'(F2.0)') -0.01
+ if (str.ne."**") call abort
+ write (str,'(F2.0)') -0.1
+ if (str.ne."**") call abort
+ write (str,'(F0.2)') 0.0
+ if (str.ne.".00") call abort
+ write (str,'(F0.0)') -0.0
+ if (str.ne."-0.") call abort
+ write (str,'(F0.1)') -0.0
+ if (str.ne."-.0") call abort
+ write (str,'(F0.2)') -0.0
+ if (str.ne."-.00") call abort
+ write (str,'(F0.3)') -0.0
+ if (str.ne."-.000") call abort