mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 13:01:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/32611 (Print sign of negative zero)

Browse Source 
2007-07-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/32611
	* gfortran.dg/large_real_kind_1.f90: Update test.
	* gfortran.dg/pr17706.f90: Update test.
	* gfortran.dg/fmt_zero_digits.f90: Update test.
	* gfortran.dg/fmt_zero_precision.f90: Update test.
	* gfortran.dg/real_const_3.f90: Update test.

From-SVN: r126656
This commit is contained in:
Jerry DeLisle 2007-07-15 16:35:07 +00:00
parent 68d2e027fa
commit b220e3f9c9
6 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,12 @@
2007-07-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/32611
* gfortran.dg/large_real_kind_1.f90: Update test.
* gfortran.dg/pr17706.f90: Update test.
* gfortran.dg/fmt_zero_digits.f90: Update test.
* gfortran.dg/fmt_zero_precision.f90: Update test.
* gfortran.dg/real_const_3.f90: Update test.
2007-07-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/32036

2
gcc/testsuite/gfortran.dg/fmt_zero_digits.f90
View File

@ -6,5 +6,7 @@ program test
50 FORMAT (d20.0)
astr = ""
write(astr,50) -8.0D0
if (astr.ne." -0.D+01") call abort()
write(astr,50) 8.0D0
if (astr.ne." 0.D+01") call abort()
end program test

2
gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
View File

@ -53,7 +53,7 @@
! { dg-output "-1\\.<(\n|\r\n|\r)" }
! { dg-output "-1\\.<(\n|\r\n|\r)" }
! { dg-output "-1\\.<(\n|\r\n|\r)" }
! { dg-output " 0\\.<(\n|\r\n|\r)" }
! { dg-output "-0\\.<(\n|\r\n|\r)" }
! { dg-output " 38\\.<(\n|\r\n|\r)" }
! { dg-output " 10345\\.<(\n|\r\n|\r)" }
! { dg-output " 334\\.<(\n|\r\n|\r)" }

2
gcc/testsuite/gfortran.dg/large_real_kind_1.f90
View File

@ -67,7 +67,7 @@ program test
x = tiny(x)
call outputstring (x,'(F20.15)',' 0.000000000000000')
call outputstring (-x,'(F20.15)',' 0.000000000000000')
call outputstring (-x,'(F20.15)',' -0.000000000000000')
write (c1,'(G20.10E5)') x
write (c2,'(G20.10E5)') -x

1
gcc/testsuite/gfortran.dg/pr17706.f90
View File

@ -1,4 +1,5 @@
! { dg-do run }
! { dg-options "-fno-sign-zero" }
! PR17706
! this is a libgfortran test
! output value -0.00 is not standard compliant

2
gcc/testsuite/gfortran.dg/real_const_3.f90
View File

@ -38,4 +38,4 @@ end program main
!{ dg-output " \\( NaN, NaN\\)(\n|\r\n|\r)" }
!{ dg-output " \\( NaN, NaN\\)(\n|\r\n|\r)" }
!{ dg-output " \\( \\+Infinity, -Infinity\\)(\n|\r\n|\r)" }
!{ dg-output " \\( 0.000000 , 0.000000 \\)(\n|\r\n|\r)" }
!{ dg-output " \\( 0.000000 , -0.000000 \\)(\n|\r\n|\r)" }