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.<"