program TEST real x x = 6 + -6 write (*,*) x stop end