* array with a do loop

	program do

	integer i, x(1:10)

	do 1 i = 1, 10
		x(i) = i * i
1	continue

	print*, x

	end
