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>
|
2007-02-22 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
|
||||||
|
|
||||||
* gcc.dg/torture/builtin-frexp-1.c: New test.
|
* gcc.dg/torture/builtin-frexp-1.c: New test.
|
||||||
|
|
|
@ -1,5 +1,6 @@
|
||||||
! { dg-do run }
|
! { dg-do run }
|
||||||
! PR28354 Incorrect rounding of .99999 with f3.0 format specifier
|
! 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>
|
! Test case derived from PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
write(*,50) -0.99999
|
write(*,50) -0.99999
|
||||||
write(*,50) 0.99999
|
write(*,50) 0.99999
|
||||||
|
@ -15,6 +16,35 @@
|
||||||
write(*,100) 333.499
|
write(*,100) 333.499
|
||||||
50 format(f3.0,"<")
|
50 format(f3.0,"<")
|
||||||
100 format(f8.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
|
end
|
||||||
! {dg-output "-1.<"
|
! {dg-output "-1.<"
|
||||||
! {dg-output " 1.<"
|
! {dg-output " 1.<"
|
||||||
|
@ -28,3 +58,28 @@
|
||||||
! {dg-output " 10345.<"
|
! {dg-output " 10345.<"
|
||||||
! {dg-output " 334.<"
|
! {dg-output " 334.<"
|
||||||
! {dg-output " 333.<"
|
! {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