blob: 9b1eba241eb58af42ceb57d835eb1b0c86a3b9a3 (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do run }
! PR libfortran/20101
! With format "PE", 0.0 must still have "+00" as exponent
character(len=10) :: c1, c2
write(c1,"(1pe9.2)") 0.0
write(c2,"(1pe9.2)") 1.0
if (trim(adjustl(c1)) .ne. "0.00E+00") STOP 1
if (trim(adjustl(c2)) .ne. "1.00E+00") STOP 2
end
|
