blob: d1c34201c0c89a23b496fc4bca8b4e93c2141779 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|