OSDN Git Service

2007-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / fmt_zero_precision.f90
1 ! { 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 <jvdelisle@gcc.gnu.org>
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<"