I created this program to calculate the IMC, but it does not execute completely. He asks to enter the weight and height, but does not return any results.
Could anyone tell me what's wrong?
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