Update src/stdlib_string_type.fypp

Co-authored-by: Sebastian Ehlert <[email protected]>
fortran-lang · Sep 4, 2023 · 8f088b3 · 8f088b3
1 parent ae4a38f
commit 8f088b3
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/stdlib_string_type.fypp b/src/stdlib_string_type.fypp
@@ -681,11 +681,10 @@ contains
     elemental subroutine move_string_string(from, to)
         type(string_type), intent(inout) :: from
         type(string_type), intent(inout) :: to
+        character(:), allocatable :: tmp
 
-        if(.not.allocated(from%raw))then
-         if(allocated(to%raw))deallocate(to%raw)
-         return
-        endif
+        call move_alloc(from%raw, tmp)
+        call move_alloc(tmp, to%raw)
 
         if(from%raw .eq. to%raw)then
          deallocate(from%raw)