gcc/testsuite/gfortran.dg/fmt_zero_width.f90

   1 ! { dg-do run }
   2 ! PR90374 "5.5 d0.d, e0.d, es0.d, en0.d, g0.d and ew.d edit descriptors
   3 program pr90374
   4   implicit none
   5   real(4) :: rn
   6   character(32) :: afmt, aresult
   7   real(8) :: one = 1.0D0, zero = 0.0D0, pinf, minf
   8
   9   rn = 0.00314_4
  10   afmt = "(D0.3)"
  11   write (aresult,fmt=afmt) rn
  12   if (aresult /= "0.314D-2") stop 12
  13   afmt = "(E0.10)"
  14   write (aresult,fmt=afmt) rn
  15   if (aresult /= "0.3139999928E-2") stop 15
  16   afmt = "(ES0.10)"
  17   write (aresult,fmt=afmt) rn
  18   if (aresult /= "3.1399999280E-3") stop 18
  19   afmt = "(EN0.10)"
  20   write (aresult,fmt=afmt) rn
  21   if (aresult /= "3.1399999280E-3") stop 21
  22   afmt = "(G0.10)"
  23   write (aresult,fmt=afmt) rn
  24   if (aresult /= "0.3139999928E-2") stop 24
  25   afmt = "(E0.10e0)"
  26   write (aresult,fmt=afmt) rn
  27   if (aresult /= "0.3139999928E-2") stop 27
  28   write (aresult,fmt="(D0.3)") rn
  29   if (aresult /= "0.314D-2") stop 29
  30   write (aresult,fmt="(E0.10)") rn
  31   if (aresult /= "0.3139999928E-2") stop 31
  32   write (aresult,fmt="(ES0.10)") rn
  33   if (aresult /= "3.1399999280E-3") stop 33
  34   write (aresult,fmt="(EN0.10)") rn
  35   if (aresult /= "3.1399999280E-3") stop 35
  36   write (aresult,fmt="(G0.10)") rn
  37   if (aresult /= "0.3139999928E-2") stop 37
  38   write (aresult,fmt="(E0.10e0)") rn
  39   if (aresult /= "0.3139999928E-2") stop 39
  40   write (aresult,fmt="(E0.10e3)") rn
  41   if (aresult /= ".3139999928E-002") stop 41
  42 end