program display_name
implicit none
character (len = 20) :: a
write (*,*)'what is your name?'
read (*,*) a
write (*,*) 'your name is ', a
end program display_name

PROGRAM RESULT