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:
parent
9014618cb9
commit
2bc677620c
|
@ -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.
|
||||
|
|
|
@ -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<"
|
||||
|
|
Loading…
Reference in New Issue