gcc/testsuite/gfortran.dg/pr111022.f90

   1 ! { dg-do run }
   2 program pr111022
   3   character(20) :: buffer
   4   write(buffer,"(EN0.3E0)") .6660_4
   5   if (buffer.ne."666.000E-3") stop 1
   6   write(buffer,"(EN0.3E0)") 6.660_4
   7   if (buffer.ne."6.660E+0") stop 2
   8   write(buffer,"(EN0.3E0)") 66.60_4
   9   if (buffer.ne."66.600E+0") stop 3
  10   write(buffer,"(EN0.3E0)") 666.0_4
  11   if (buffer.ne."666.000E+0") stop 4
  12   write(buffer,"(EN0.3E0)") 6660.0_4
  13   if (buffer.ne."6.660E+3") stop 5
  14   write(buffer,"(EN0.3E0)") 66600.0_4
  15   if (buffer.ne."66.600E+3") stop 6
  16
  17   write(buffer,"(EN0.0E0)") 666.0_4
  18   if (buffer.ne."666.E+0") stop 7
  19   write(buffer,"(EN0.0E1)") 666.0_4
  20   if (buffer.ne."666.E+0") stop 8
  21   write(buffer,"(EN0.0E2)") 666.0_4
  22   if (buffer.ne."666.E+00") stop 9
  23   write(buffer,"(EN0.0E3)") 666.0_4
  24   if (buffer.ne."666.E+000") stop 10
  25   write(buffer,"(EN0.0E4)") 666.0_4
  26   if (buffer.ne."666.E+0000") stop 11
  27   write(buffer,"(EN0.0E5)") 666.0_4
  28   if (buffer.ne."666.E+00000") stop 12
  29   write(buffer,"(EN0.0E6)") 666.0_4
  30   if (buffer.ne."666.E+000000") stop 13
  31
  32   write(buffer,"(ES0.3E0)") .6660_4
  33   if (buffer.ne."6.660E-1") stop 14
  34   write(buffer,"(ES0.3E0)") 6.660_4
  35   if (buffer.ne."6.660E+0") stop 15
  36   write(buffer,"(ES0.3E0)") 66.60_4
  37   if (buffer.ne."6.660E+1") stop 16
  38   write(buffer,"(ES0.3E0)") 666.0_4
  39   if (buffer.ne."6.660E+2") stop 17
  40   write(buffer,"(ES0.3E0)") 6660.0_4
  41   if (buffer.ne."6.660E+3") stop 18
  42   write(buffer,"(ES0.3E0)") 66600.0_4
  43   if (buffer.ne."6.660E+4") stop 19
  44
  45   write(buffer,"(ES0.0E0)") 666.0_4
  46   if (buffer.ne."7.E+2") stop 20
  47   write(buffer,"(ES0.0E1)") 666.0_4
  48   if (buffer.ne."7.E+2") stop 21
  49   write(buffer,"(ES0.0E2)") 666.0_4
  50   if (buffer.ne."7.E+02") stop 22
  51   write(buffer,"(ES0.0E3)") 666.0_4
  52   if (buffer.ne."7.E+002") stop 23
  53   write(buffer,"(ES0.0E4)") 666.0_4
  54   if (buffer.ne."7.E+0002") stop 24
  55   write(buffer,"(ES0.0E5)") 666.0_4
  56   if (buffer.ne."7.E+00002") stop 25
  57   write(buffer,"(ES0.0E6)") 666.0_4
  58   if (buffer.ne."7.E+000002") stop 26
  59
  60   write(buffer,"(E0.3E0)") .6660_4
  61   if (buffer.ne."0.666E+0") stop 27
  62   write(buffer,"(E0.3)") .6660_4
  63   if (buffer.ne."0.666E+0") stop 28
  64   write(buffer,"(E0.1E0)") .6660_4
  65   if (buffer.ne."0.7E+0") stop 29
  66   write(buffer,"(E0.1)") .6660_4
  67   if (buffer.ne."0.7E+0") stop 30
  68   write(buffer,"(E0.5E0)") .6660_4
  69   if (buffer.ne."0.66600E+0") stop 31
  70   write(buffer,"(E0.5)") .6660_4
  71   if (buffer.ne."0.66600E+0") stop 32
  72 end program pr111022