program string_assignment_02
    implicit none
    character(10), allocatable :: a
    character(:), allocatable :: b
    a = b
end program string_assignment_02