F90: O uso do PARAMETER

PROGRAM aula
	IMPLICIT NONE
	INTEGER :: E
	REAL, PARAMETER :: pi = 3.14159265
	REAL :: raio, area
	WRITE (*,*) "Digite o valor do raio da esfera:"
	DO
		READ (*,*,IOstat=E) raio
		IF (E>0) THEN
			WRITE (*,*) "Valor inválido. O raio deve ser um valor real."
		ELSE
			EXIT
		END IF
	END DO
	area = 4*pi*(raio**2)
	WRITE (*,"(A,F6.2)") "A área da esfera é ",area
END PROGRAM