OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2006-11-09 Paul Thomas <pault@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
! Test case derived from PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4
write(*,50) -0.99999
5
write(*,50) 0.99999
6
write(*,50) -9.0
7
write(*,50) -0.99
8
write(*,50) -0.999
9
write(*,50) -0.999
10
write(*,50) -0.59
11
write(*,50) -0.49
12
write(*,100) 37.99999
13
write(*,100) 10345.0
14
write(*,100) 333.678
15
write(*,100) 333.499
16
50 format(f3.0,"<")
17
100 format(f8.0,"<")
18
end
19
! {dg-output "-1.<"
20
! {dg-output " 1.<"
21
! {dg-output "-9.<"
22
! {dg-output "-1.<"
23
! {dg-output "-1.<"
24
! {dg-output "-1.<"
25
! {dg-output "-1.<"
26
! {dg-output " 0.<"
27
! {dg-output " 38.<"
28
! {dg-output " 10345.<"
29
! {dg-output " 334.<"
30
! {dg-output " 333.<"