! { dg-do run }! PR libfortran/20101! With format "PE", 0.0 must still have "+00" as exponentcharacter(len=10)::c1,c2write(c1,"(1pe9.2)")0.0write(c2,"(1pe9.2)")1.0if(trim(adjustl(c1)).ne."0.00E+00")call abort()if(trim(adjustl(c2)).ne."1.00E+00")call abort()end