[Bug fortran/32554] New: [4.3 regression] Bug in P formatting

[anlauf at gmx dot de]

Hi,

the following code:

program gfcbug66
  real(8) :: x = 1.0e-100_8
  write (*,'(1X,2E12.3)')    x, 2 * x
  write (*,'(1X,1P,2E12.3)') x, 2 * x   ! Second printed number is wrong
end program gfcbug66

produces:

    0.100E-99   0.200E-99
    1.000-100   2.000E-10

but it should be

    0.100E-99   0.200E-99
    1.000-100   2.000-100

This used to work before and with 4.2.

Cheers,
-ha


-- 
           Summary: [4.3 regression] Bug in P formatting
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at gmx dot de
  GCC host triplet: i686-pc-linux-gnu


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