$ cat fmt_read_bz_bn.f90 
character*80 :: correct=" 70.07 .888E+01"
write(*, 20) 70.07, 8.88
20 format (F6.2, BN, 1X, E8.3)
write (*,'(A)') correct
end
$ gfc fmt_read_bz_bn.f90 && ./a.exe 
 70.07 ********
 70.07 .888E+01

-- 
           Summary: Error in floating point output with BN edit descriptor
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i386-mingw32


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

Reply via email to