OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_zero_precision.f90] - Blame information for rev 823

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn 
! { dg-do run }
2 
! PR28354 Incorrect rounding of .99999 with f3.0 format specifier
3 
! PR30910 ES format not quite right...
4 
! Test case derived from PR. Submitted by Jerry DeLisle
5 
  write(*,50) -0.99999
6 
  write(*,50) 0.99999
7 
  write(*,50) -9.0
8 
  write(*,50) -0.99
9 
  write(*,50) -0.999
10 
  write(*,50) -0.999
11 
  write(*,50) -0.59
12 
  write(*,50) -0.49
13 
  write(*,100) 37.99999
14 
  write(*,100) 10345.0
15 
  write(*,100) 333.678
16 
  write(*,100) 333.499
17 
  50   format(f3.0,"<")
18 
 100   format(f8.0,"<")
19 
  write(6,'(es6.0)') 1.0e-1
20 
  write(*,150) -0.99999
21 
  write(*,150) 0.99999
22 
  write(*,150) -9.0
23 
  write(*,150) -0.99
24 
  write(*,150) -0.999
25 
  write(*,150) -0.999
26 
  write(*,150) -0.59
27 
  write(*,150) -0.49
28 
  write(*,200) 37.99999
29 
  write(*,200) 10345.0
30 
  write(*,200) 333.678
31 
  write(*,200) 333.499
32 
 150   format(es7.0,"<")
33 
 200   format(es8.0,"<")
34 
  write(*,250) -0.99999
35 
  write(*,250) 0.99999
36 
  write(*,250) -9.0
37 
  write(*,250) -0.99
38 
  write(*,250) -0.999
39 
  write(*,250) -0.999
40 
  write(*,250) -0.59
41 
  write(*,250) -0.49
42 
  write(*,300) 37.99999
43 
  write(*,300) 10345.0
44 
  write(*,300) 333.678
45 
  write(*,300) 333.499
46 
 250   format(1pe7.0,"<")
47 
 300   format(1pe6.0,"<")
48 
  end
49 
! {dg-output "-1.<"
50 
! {dg-output " 1.<"
51 
! {dg-output "-9.<"
52 
! {dg-output "-1.<"
53 
! {dg-output "-1.<"
54 
! {dg-output "-1.<"
55 
! {dg-output "-1.<"
56 
! {dg-output " 0.<"
57 
! {dg-output "     38.<"
58 
! {dg-output "  10345.<"
59 
! {dg-output "    334.<"
60 
! {dg-output "    333.<"
61 
! {dg-output "1.E-01"
62 
! {dg-output "-1.E+00<"
63 
! {dg-output " 1.E+00<"
64 
! {dg-output "-9.E+00<"
65 
! {dg-output "-1.E+00<"
66 
! {dg-output "-1.E+00<"
67 
! {dg-output "-1.E+00<"
68 
! {dg-output "-6.E-01<"
69 
! {dg-output "-5.E-01<"
70 
! {dg-output "  4.E+01<"
71 
! {dg-output "  1.E+04<"
72 
! {dg-output "  3.E+02<"
73 
! {dg-output "  3.E+02<"
74 
! {dg-output "-1.E+00<"
75 
! {dg-output " 1.E+00<"
76 
! {dg-output "-9.E+00<"
77 
! {dg-output "-1.E+00<"
78 
! {dg-output "-1.E+00<"
79 
! {dg-output "-1.E+00<"
80 
! {dg-output "-6.E-01<"
81 
! {dg-output "-5.E-01<"
82 
! {dg-output "4.E+01<"
83 
! {dg-output "1.E+04<"
84 
! {dg-output "3.E+02<"
85 
! {dg-output "3.E+02<"

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.