File tree Expand file tree Collapse file tree 1 file changed +11
-0
lines changed Expand file tree Collapse file tree 1 file changed +11
-0
lines changed Original file line number Diff line number Diff line change @@ -214,6 +214,7 @@ module stdlib_string_type
214
214
module procedure :: move_string_string
215
215
module procedure :: move_string_char
216
216
module procedure :: move_char_string
217
+ module procedure :: move_char_char
217
218
end interface move
218
219
219
220
!> Lexically compare the order of two character sequences being greater,
@@ -761,6 +762,16 @@ contains
761
762
762
763
end subroutine move_char_string
763
764
765
+ !> Moves the allocated character scalar from 'from' to 'to'
766
+ !> No output
767
+ subroutine move_char_char(from, to)
768
+ character(len=:), intent(inout), allocatable :: from
769
+ character(len=:), intent(inout), allocatable :: to
770
+
771
+ call move_alloc(from, to)
772
+
773
+ end subroutine move_char_char
774
+
764
775
!> Compare two character sequences for being greater.
765
776
!> In this version both character sequences are by a string.
766
777
elemental function gt_string_string(lhs, rhs) result(is_gt)
You can’t perform that action at this time.
0 commit comments