gcc/testsuite/gfortran.dg/pr20480.f90

   1 ! { dg-do run }
   2 ! PR libfortran/20480
   3 ! fxcoudert@gcc.gnu.org
   4   character(len=80) c
   5   write (c,'(ES12.3)') 0.0
   6   if (trim(adjustl(c)) .ne. '0.000E+00') call abort ()
   7   write (c,'(EN12.3)') 0.0
   8   if (trim(adjustl(c)) .ne. '0.000E+00') call abort ()
   9   end