real x x = 123.456 write(6,100) x 100 format(f10.5) stop end