! { dg-do run }
program pr111022
  character(20) :: buffer
  write(buffer,"(EN0.3E0)") .6660_4
  if (buffer.ne."666.000E-3") stop 1
  write(buffer,"(EN0.3E0)") 6.660_4
  if (buffer.ne."6.660E+0") stop 2
  write(buffer,"(EN0.3E0)") 66.60_4
  if (buffer.ne."66.600E+0") stop 3
  write(buffer,"(EN0.3E0)") 666.0_4
  if (buffer.ne."666.000E+0") stop 4
  write(buffer,"(EN0.3E0)") 6660.0_4
  if (buffer.ne."6.660E+3") stop 5
  write(buffer,"(EN0.3E0)") 66600.0_4
  if (buffer.ne."66.600E+3") stop 6
  
  write(buffer,"(EN0.0E0)") 666.0_4
  if (buffer.ne."666.E+0") stop 7
  write(buffer,"(EN0.0E1)") 666.0_4
  if (buffer.ne."666.E+0") stop 8
  write(buffer,"(EN0.0E2)") 666.0_4
  if (buffer.ne."666.E+00") stop 9
  write(buffer,"(EN0.0E3)") 666.0_4
  if (buffer.ne."666.E+000") stop 10
  write(buffer,"(EN0.0E4)") 666.0_4
  if (buffer.ne."666.E+0000") stop 11
  write(buffer,"(EN0.0E5)") 666.0_4
  if (buffer.ne."666.E+00000") stop 12
  write(buffer,"(EN0.0E6)") 666.0_4
  if (buffer.ne."666.E+000000") stop 13
  
  write(buffer,"(ES0.3E0)") .6660_4
  if (buffer.ne."6.660E-1") stop 14
  write(buffer,"(ES0.3E0)") 6.660_4
  if (buffer.ne."6.660E+0") stop 15
  write(buffer,"(ES0.3E0)") 66.60_4
  if (buffer.ne."6.660E+1") stop 16
  write(buffer,"(ES0.3E0)") 666.0_4
  if (buffer.ne."6.660E+2") stop 17
  write(buffer,"(ES0.3E0)") 6660.0_4
  if (buffer.ne."6.660E+3") stop 18
  write(buffer,"(ES0.3E0)") 66600.0_4
  if (buffer.ne."6.660E+4") stop 19
  
  write(buffer,"(ES0.0E0)") 666.0_4
  if (buffer.ne."7.E+2") stop 20
  write(buffer,"(ES0.0E1)") 666.0_4
  if (buffer.ne."7.E+2") stop 21
  write(buffer,"(ES0.0E2)") 666.0_4
  if (buffer.ne."7.E+02") stop 22
  write(buffer,"(ES0.0E3)") 666.0_4
  if (buffer.ne."7.E+002") stop 23
  write(buffer,"(ES0.0E4)") 666.0_4
  if (buffer.ne."7.E+0002") stop 24
  write(buffer,"(ES0.0E5)") 666.0_4
  if (buffer.ne."7.E+00002") stop 25
  write(buffer,"(ES0.0E6)") 666.0_4
  if (buffer.ne."7.E+000002") stop 26
  
  write(buffer,"(E0.3E0)") .6660_4
  if (buffer.ne."0.666E+0") stop 27
  write(buffer,"(E0.3)") .6660_4
  if (buffer.ne."0.666E+0") stop 28
  write(buffer,"(E0.1E0)") .6660_4
  if (buffer.ne."0.7E+0") stop 29
  write(buffer,"(E0.1)") .6660_4
  if (buffer.ne."0.7E+0") stop 30
  write(buffer,"(E0.5E0)") .6660_4
  if (buffer.ne."0.66600E+0") stop 31
  write(buffer,"(E0.5)") .6660_4
  if (buffer.ne."0.66600E+0") stop 32
end program pr111022