Skip to content

Commit 4b3a473

Browse files
committed
Merge branch 'swap' of https://github.com/jalvesz/stdlib into swap
2 parents 1119964 + 775c8b4 commit 4b3a473

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_math.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -553,7 +553,7 @@ contains
553553

554554
elemental subroutine swap_str(lhs,rhs)
555555
character(*), intent(inout) :: lhs, rhs
556-
character(len=:), allocatable :: temp
556+
character(len=max(len(lhs), len(rhs))) :: temp
557557
temp = lhs ; lhs = rhs ; rhs = temp
558558
end subroutine
559559

0 commit comments

Comments
 (0)