Preciso calcular o Minimo divisor comum em fortran, fiz o código, porém quando ele compila e roda, fecha após o usuário digitar o valor e eu não sei o que está errado.
PROGRAM Calc
IMPLICIT NONE
REAL :: valor,contador=0, divisao
write(*,*) "Digite um valor positivo para calcular o MDC "
read(*,*) valor
do contador = 0, valor, 1
if(MOD(valor,contador)==0)then
divisao=divisao+1
endif
end do
if(divisao == 2) then
write(*,*) "O Valor digitado possui MDC"
else
write(*,*) "O valor digitado nao possui MDC"
endif
STOP
END PROGRAM Calc