add self swap tests

fortran-lang · Sep 8, 2024 · 0daa4d8 · 0daa4d8
1 parent 0fa4450
commit 0daa4d8
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/test/math/test_stdlib_math.fypp b/test/math/test_stdlib_math.fypp
@@ -269,6 +269,12 @@ contains
         if (allocated(error)) return
         call check(error, all( y == [${t1}$ :: 1, 2, 3] ) )
         if (allocated(error)) return
+
+        ! check self swap
+        call swap(x,x)
+
+        call check(error, all( x == [${t1}$ :: 4, 5, 6] ) )
+        if (allocated(error)) return
     end subroutine test_swap_${k1}$
     #:endfor
 
@@ -286,6 +292,12 @@ contains
         if (allocated(error)) return
         call check(error, all( y == cmplx( [1, 2, 3] , [4, 5, 6] ) ) )
         if (allocated(error)) return
+
+        ! check self swap
+        call swap(x,x)
+
+        call check(error, all( x == cmplx( [4, 5, 6] , [1, 2, 3] ) ) )
+        if (allocated(error)) return
     end subroutine test_swap_c${k1}$
     #:endfor
 
@@ -302,6 +314,12 @@ contains
         if (allocated(error)) return
         call check(error, all( y == ['abcde','fghij']  ) )
         if (allocated(error)) return
+
+        ! check self swap
+        call swap(x,x)
+
+        call check(error, all( x == ['fghij','abcde'] ) )
+        if (allocated(error)) return
     end subroutine test_swap_str
 
     #:for k1 in CMPLX_KINDS