We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d46b7a9 commit 8dec603Copy full SHA for 8dec603
test/intrinsics/test_intrinsics.fypp
@@ -262,7 +262,7 @@ subroutine test_dot_product(error)
262
p(1) = dot_product(x,y) ! compiler intrinsic
263
p(2) = stdlib_dot_product_kahan(x,y) ! chunked Kahan dot_product
264
p(3) = stdlib_dot_product(x,y) ! chunked dot_product
265
- err(1:2) = ( abs( p(2:3)%re - p(1)%re ) + abs( p(2:3)%im - p(1)%im ) ) / 2
+ err(1:2) = sqrt((p(2:3)%re - p(1)%re)**2 + (p(2:3)%im - p(1)%im)**2)
266
267
call check(error, all(err(:)<tolerance) , "complex dot_product does not conform to the standard" )
268
if (allocated(error)) return
0 commit comments