Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr17706.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fno-sign-zero" } ! PR17706 ! this is a libgfortran test ! output value -0.00 is not standard compliant ! derived from NIST F77 test FM406, with extra bits added. program pr17706 implicit none character(len=10) :: s character(len=10), parameter :: x = "xxxxxxxxxx" real, parameter :: small = -0.0001 s = x write (s, '(F4.1)') small ! The plus is optional. We choose not to display it. if (s .ne. " 0.0") STOP 1 s = x write (s, '(SS,F4.1)') small if (s .ne. " 0.0") STOP 2 s = x write (s, '(SP,F4.1)') small if (s .ne. "+0.0") STOP 3 end program