Skip to content

Commit 2992305

Browse files
committed
temporary is now unnecessary
1 parent 4aa4f75 commit 2992305

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

src/stdlib_string_type.fypp

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -682,12 +682,9 @@ contains
682682
elemental subroutine move_string_string(from, to)
683683
type(string_type), intent(inout), target :: from
684684
type(string_type), intent(inout), target :: to
685-
character(:), allocatable :: tmp
686685

687686
if (c_associated(c_loc(from),c_loc(to))) return
688-
689-
call move_alloc(from%raw, tmp)
690-
call move_alloc(tmp, to%raw)
687+
call move_alloc(from%raw, to%raw)
691688

692689
end subroutine move_string_string
693690

0 commit comments

Comments
 (0)