We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 4aa4f75 commit 2992305Copy full SHA for 2992305
src/stdlib_string_type.fypp
@@ -682,12 +682,9 @@ contains
682
elemental subroutine move_string_string(from, to)
683
type(string_type), intent(inout), target :: from
684
type(string_type), intent(inout), target :: to
685
- character(:), allocatable :: tmp
686
687
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)
+ call move_alloc(from%raw, to%raw)
691
692
end subroutine move_string_string
693
0 commit comments