	program test
	x=-.2
	y=x**2.
	write(6,*) 'x,y= ', x,y
	end
