REAL :: x
 CHARACTER(80) :: str
 x = 0.0
 write (str,'(f0.3)') x
 print *, str
 END  

gives

 **

Other reals ok.

Downloaded 32-bit gfortran from Equation.com today: 4.4-20090306. Running on
Win64.


-- 
           Summary: gfortran 20090306: internal write of  0.0 with F0.3
                    gives  **
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: davidgkinniburgh at yahoo dot co dot uk
  GCC host triplet: x86_64-pc-mingw32


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39402

Reply via email to