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