program doloop_factorial10 implicit none integer :: i integer :: factorial factorial = 1 do i = 1, 10 factorial = factorial * i end do write( 6, * ) '10! = ', factorial end program doloop_factorial10