Skip to content

Commit d38d615

Browse files
jvdp1awvwgk
andauthored
Update src/stdlib_string_type.fypp
Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
1 parent 8f088b3 commit d38d615

File tree

1 file changed

+0
-6
lines changed

1 file changed

+0
-6
lines changed

src/stdlib_string_type.fypp

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -686,12 +686,6 @@ contains
686686
call move_alloc(from%raw, tmp)
687687
call move_alloc(tmp, to%raw)
688688

689-
if(from%raw .eq. to%raw)then
690-
deallocate(from%raw)
691-
else
692-
call move_alloc(from%raw, to%raw)
693-
endif
694-
695689
end subroutine move_string_string
696690

697691
!> Moves the allocated character scalar from 'from' to 'to'

0 commit comments

Comments
 (0)