gcc/testsuite/gfortran.dg/pr18025.f90

   1 ! PR libfortran/18025  <coudert@clipper.ens.fr>
   2 ! { dg-do run }
   3   character(len=80) :: c
   4   write(c, "('#',F0.2,'#')") 1.23
   5   if (c /= '#1.23#') call abort
   6   write(c, "('#',F0.2,'#')") -1.23
   7   if (c /= '#-1.23#') call abort
   8   end