gcc/testsuite/gfortran.dg/fmt_f0_1.f90

   1 ! { dg-do run }
   2 ! PR39304 write of  0.0 with F0.3 gives  **
   3 ! PR47567 Small absolute values.
   4 ! Test case developed from case provided by reporter.
   5  REAL :: x
   6  CHARACTER(80) :: str
   7  x = 0.0
   8  write (str,'(f0.0)') x
   9  if (str.ne."0.") STOP 1
  10  write (str,'(f0.1)') x
  11  if (str.ne.".0") STOP 2
  12  write (str,'(f0.2)') x
  13  if (str.ne.".00") STOP 3
  14  write (str,'(f0.3)') x
  15  if (str.ne.".000") STOP 4
  16  write (str,'(f0.4)') x
  17  if (str.ne.".0000") STOP 5
  18  write (str,'(F0.0)') 0.0
  19  if (str.ne."0.") STOP 6
  20  write (str,'(F0.0)') 0.001
  21  if (str.ne."0.") STOP 7
  22  write (str,'(F0.0)') 0.01
  23  if (str.ne."0.") STOP 8
  24  write (str,'(F0.0)') 0.1
  25  if (str.ne."0.") STOP 9
  26  write (str,'(F1.0)') -0.0
  27  if (str.ne."*") STOP 10
  28  write (str,'(F1.0)') 0.001
  29  if (str.ne."*") STOP 11
  30  write (str,'(F1.0)') 0.01
  31  if (str.ne."*") STOP 12
  32  write (str,'(F1.0)') 0.1
  33  if (str.ne."*") STOP 13
  34  write (str,'(F2.0)') -0.001
  35  if (str.ne."**") STOP 14
  36  write (str,'(F2.0)') -0.01
  37  if (str.ne."**") STOP 15
  38  write (str,'(F2.0)') -0.1
  39  if (str.ne."**") STOP 16
  40  write (str,'(F0.2)') 0.0
  41  if (str.ne.".00") STOP 17
  42  write (str,'(F0.0)') -0.0
  43  if (str.ne."-0.") STOP 18
  44  write (str,'(F0.1)') -0.0
  45  if (str.ne."-.0") STOP 19
  46  write (str,'(F0.2)') -0.0
  47  if (str.ne."-.00") STOP 20
  48  write (str,'(F0.3)') -0.0
  49  if (str.ne."-.000") STOP 21
  50  write (str,'(F3.0)') -0.0
  51  if (str.ne."-0.") STOP 22
  52  write (str,'(F2.0)') -0.0
  53  if (str.ne."**") STOP 23
  54  write (str,'(F1.0)') -0.0
  55  if (str.ne."*") STOP 24
  56  write (str,'(F0.1)') -0.0
  57  if (str.ne."-.0") STOP 25
  58  write (str,'(F3.1)') -0.0
  59  if (str.ne."-.0") STOP 26
  60  write (str,'(F2.1)') -0.0
  61  if (str.ne."**") STOP 27
  62  write (str,'(F1.1)') -0.0
  63  if (str.ne."*") STOP 28
  64  END