From 7cea1fd43e27da4a23799166043182bf7463f076 Mon Sep 17 00:00:00 2001 From: jalvesz Date: Fri, 3 Jan 2025 22:11:54 +0100 Subject: [PATCH] fix test: complex initialization --- test/intrinsics/test_intrinsics.fypp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/intrinsics/test_intrinsics.fypp b/test/intrinsics/test_intrinsics.fypp index f83f60759..8969d3afb 100644 --- a/test/intrinsics/test_intrinsics.fypp +++ b/test/intrinsics/test_intrinsics.fypp @@ -90,7 +90,7 @@ subroutine test_sum(error) allocate(x(n)) do i = 1, n - x(i) = complex(& + x(i) = cmplx(& 8*atan(1._${k1}$)*(real(i,kind=${k1}$)-0.5_${k1}$)/real(2*n,kind=${k1}$)**2,& 8*atan(1._${k1}$)*(real(i+n,kind=${k1}$)-0.5_${k1}$)/real(2*n,kind=${k1}$)**2) end do @@ -182,7 +182,7 @@ subroutine test_dot_product(error) allocate(x(n)) do i = 1, n - x(i) = complex(& + x(i) = cmplx(& sqrt(8*atan(1._${k1}$)*(real(i,kind=${k1}$)-0.5_${k1}$)/real(2*n,kind=${k1}$)**2),& sqrt(8*atan(1._${k1}$)*(real(i+n,kind=${k1}$)-0.5_${k1}$)/real(2*n,kind=${k1}$)**2)) end do