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