blob: d1c34201c0c89a23b496fc4bca8b4e93c2141779 [file] [log] [blame]
! { dg-do run }
! { dg-options "-fno-sign-zero" }
!
! PR fortran/55539
!
program nosigned_zero_3
implicit none
character(len=20) :: s
real(4) :: x = -1.2e-3
real(8) :: y = -1.2e-3
write(s,'(7f10.3)') x
if (trim(adjustl(s)) /= "-0.001") STOP 1
write(s, '(7f10.3)') y
if (trim(adjustl(s)) /= "-0.001") STOP 2
end program nosigned_zero_3