implicit none
integer :: i,j,k
j=87&
&6
k=0; do i=1,j&
&,1 ; k=k+i
end&
&do ; print *,j,k





                          end  