F90: Lendo de um arquivo

Arquivo aula.f90

PROGRAM aula
	IMPLICIT NONE
	INTEGER :: A,B
	OPEN (UNIT=10, FILE="aula.txt", STATUS="OLD")
	READ (10,*) A
	READ (10,*) B
	WRITE (*,*) A+B
	CLOSE (10)
END PROGRAM aula

Exemplo do conteúdo do arquivo aula.txt

3
4