program namer
implicit none
character(LEN=4)::name
print*, 'What is Your name ? '
read*, name
print*, 'Your Name Is',' ', name
end program namer