program ch0401
    ! Simple Text I/O
    implicit none

    character(20) :: first_name

    print *, ' type in your first name.'
    print *, ' up to 20 characters'
    read *, first_name
    print *, first_name
end program
