program io_stay_same_line
      write(*,100)
 100  format(1x,'Type in N:',$)
      read(*,*) n
      m=0
      do i=1,n
        m=m+i
      end do
      write(*,*)'1+2+..+N=',m
      end