	program test1
	integer a(10)
	do 10 i=2,10
	  a(i)=a(i-1) + 1
10	continue
	end
