1! { dg-do run }
2! PR83811 fortran 'e' format broken for single digit exponents
3program test
4  character(25) :: s
5  write(s, '(1pe5.0e1)') 1.e-4
6  if (s.ne."1.E-4") STOP 1
7  write(s, '(e5.1e1)') 1.e12
8  if (s.ne."*****") STOP 2
9end
10
11