Update src/stdlib_math.fypp

Co-authored-by: Jeremie Vandenplas <[email protected]>

Author: jalvesz

src/stdlib_math.fypp

@@ -553,7 +553,7 @@ contains
 
     elemental subroutine swap_str(lhs,rhs)
         character(*), intent(inout) :: lhs, rhs
-        character(len=max(len(lhs),len(rhs))) :: temp
+        character(len=:), allocatable :: temp
         temp = lhs ; lhs = rhs ; rhs = temp
     end subroutine