OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/30910 ([Regression 4.2, 4.3] Gfortran: ES format not quite right...) 

2007-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/30910	
	* gfortran.dg/fmt_zero_precision.f90: Update test.

From-SVN: r122251
This commit is contained in:
Jerry DeLisle 2007-02-23 06:29:03 +00:00
parent 9014618cb9
commit 2bc677620c
2 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30910
* gfortran.dg/fmt_zero_precision.f90: Update test.
2007-02-22 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* gcc.dg/torture/builtin-frexp-1.c: New test.

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

@ -1,5 +1,6 @@
! { dg-do run }
! PR28354 Incorrect rounding of .99999 with f3.0 format specifier
! PR30910 ES format not quite right...
! Test case derived from PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
write(*,50) -0.99999
write(*,50) 0.99999
@ -15,6 +16,35 @@
write(*,100) 333.499
50 format(f3.0,"<")
100 format(f8.0,"<")
write(6,'(es6.0)') 1.0e-1
write(*,150) -0.99999
write(*,150) 0.99999
write(*,150) -9.0
write(*,150) -0.99
write(*,150) -0.999
write(*,150) -0.999
write(*,150) -0.59
write(*,150) -0.49
write(*,200) 37.99999
write(*,200) 10345.0
write(*,200) 333.678
write(*,200) 333.499
150 format(es7.0,"<")
200 format(es8.0,"<")
write(*,250) -0.99999
write(*,250) 0.99999
write(*,250) -9.0
write(*,250) -0.99
write(*,250) -0.999
write(*,250) -0.999
write(*,250) -0.59
write(*,250) -0.49
write(*,300) 37.99999
write(*,300) 10345.0
write(*,300) 333.678
write(*,300) 333.499
250 format(1pe7.0,"<")
300 format(1pe6.0,"<")
end
! {dg-output "-1.<"
! {dg-output " 1.<"
@ -28,3 +58,28 @@
! {dg-output " 10345.<"
! {dg-output " 334.<"
! {dg-output " 333.<"
! {dg-output "1.E-01"
! {dg-output "-1.E+00<"
! {dg-output " 1.E+00<"
! {dg-output "-9.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-6.E-01<"
! {dg-output "-5.E-01<"
! {dg-output " 4.E+01<"
! {dg-output " 1.E+04<"
! {dg-output " 3.E+02<"
! {dg-output " 3.E+02<"
! {dg-output "-1.E+00<"
! {dg-output " 1.E+00<"
! {dg-output "-9.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-1.E+00<"
! {dg-output "-6.E-01<"
! {dg-output "-5.E-01<"
! {dg-output "4.E+01<"
! {dg-output "1.E+04<"
! {dg-output "3.E+02<"
! {dg-output "3.E+02<"