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