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>
19 write(6,'(es6.0)') 1.0e-1
46 250 format(1pe7
.0
,"<")
47 300 format(1pe6
.0
,"<")
49 ! { dg-output " 1\\.<(\r*\n+)" }
50 ! { dg-output "-1\\.<(\r*\n+)" }
51 ! { dg-output "-9\\.<(\r*\n+)" }
52 ! { dg-output "-1\\.<(\r*\n+)" }
53 ! { dg-output "-1\\.<(\r*\n+)" }
54 ! { dg-output "-1\\.<(\r*\n+)" }
55 ! { dg-output "-1\\.<(\r*\n+)" }
56 ! { dg-output "-0\\.<(\r*\n+)" }
57 ! { dg-output " 38\\.<(\r*\n+)" }
58 ! { dg-output " 10345\\.<(\r*\n+)" }
59 ! { dg-output " 334\\.<(\r*\n+)" }
60 ! { dg-output " 333\\.<(\r*\n+)" }
61 ! { dg-output "1\\.E-01(\r*\n+)" }
62 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
63 ! { dg-output " 1\\.E\\+00<(\r*\n+)" }
64 ! { dg-output "-9\\.E\\+00<(\r*\n+)" }
65 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
66 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
67 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
68 ! { dg-output "-6\\.E-01<(\r*\n+)" }
69 ! { dg-output "-5\\.E-01<(\r*\n+)" }
70 ! { dg-output " 4\\.E\\+01<(\r*\n+)" }
71 ! { dg-output " 1\\.E\\+04<(\r*\n+)" }
72 ! { dg-output " 3\\.E\\+02<(\r*\n+)" }
73 ! { dg-output " 3\\.E\\+02<(\r*\n+)" }
74 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
75 ! { dg-output " 1\\.E\\+00<(\r*\n+)" }
76 ! { dg-output "-9\\.E\\+00<(\r*\n+)" }
77 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
78 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
79 ! { dg-output "-1\\.E\\+00<(\r*\n+)" }
80 ! { dg-output "-6\\.E-01<(\r*\n+)" }
81 ! { dg-output "-5\\.E-01<(\r*\n+)" }
82 ! { dg-output "4\\.E\\+01<(\r*\n+)" }
83 ! { dg-output "1\\.E\\+04<(\r*\n+)" }
84 ! { dg-output "3\\.E\\+02<(\r*\n+)" }
85 ! { dg-output "3\\.E\\+02<(\r*\n+)" }