F90: Identificando erros na entrada

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	INTEGER :: Erro
	INTEGER :: NumeroInteiro
	WRITE (*,*) "Digite um número inteiro"
	DO
		READ (*,*,IOstat=Erro) NumeroInteiro
		IF (Erro <= 0) THEN
			WRITE (*,*) "OK. Obrigado, você digitou o número inteiro", &
                                    NumeroInteiro, "."
			EXIT
		ELSE
			WRITE (*,*) "Ops! Você não digitou um número inteiro."
		END IF
	END DO
END PROGRAM aula