Skip to content

Commit 775c8b4

Browse files
jalveszawvwgk
andauthored
Update src/stdlib_math.fypp
Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
1 parent 3a2fa03 commit 775c8b4

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)