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
9