gcc/testsuite/algol68/execute/float-1.a68

begin assert(float(123.4567,12,5,2) = "+12.34567e+1");
      assert(float(123.4567,-10,5,-1) = " 1.23457e2")
end