F90: Identificando erros na entrada

PROGRAM aula
	IMPLICIT NONE
	INTEGER :: Status
	INTEGER :: NumeroInteiro
	WRITE (*,*) "Digite um número inteiro"
	DO
		READ (*,*,IOstat=Status) NumeroInteiro
		IF (Status <= 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