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