F90: Identificando erros na entrada
From AdonaiMedrado.Pro.Br
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