F90: Bom-dia personalizado

PROGRAM aula
	IMPLICIT NONE
	CHARACTER(LEN=10) :: Nome
	WRITE (*,*) "Digite seu nome"
	READ (*,*) Nome
	WRITE (*,*) "Bom-dia ", Nome, "!"
END PROGRAM aula