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