errado001.f90

Program “Texto”
Character(len=3): nome
Character(len=4): sobrenome
Print*, “Escreva um nome com três letras”
Read nome
Print*, “Escreva um sobrenome com quatro letras”
Read sobrenome
Character(len=7): nome//sobrenome
End program “Texto”