Criei esse programa para calcular o IMC, porém ele não executa por completo. Ele pede para entrar com o peso e a altura, mas não retorna nenhum resultado.
Alguém poderia me dizer o que está errado?
PROGRAM Calc
IMPLICIT NONE
REAL :: peso, altura, mmc
write(*,*) "Valor do peso = ? "
read(*,*) peso
write(*,*) "Valor do altura = ? "
read(*,*) altura
mmc = (peso/altura)
write (*,*) mmc
STOP
END PROGRAM Calc