program rangoNumero

integer :: numero, suma

numero = 7
suma   = 0

if ((numero > 6).and.(numero <= 10)) then
   do i = numero,10
      suma = suma + i
   end do
end if 

if ((numero < 6)) then
   do i = 1,numero
      suma = suma + i
   end do
end if

if ((numero > 10)) then
   print *, "fuera de rango"
else
   print *,"suma= ",suma
end if

end program rangoNumero