diff --git a/src/tests/quadrature/test_trapz.f90 b/src/tests/quadrature/test_trapz.f90
index 0cf58ddea..4117eae9f 100644
--- a/src/tests/quadrature/test_trapz.f90
+++ b/src/tests/quadrature/test_trapz.f90
@@ -77,7 +77,7 @@ subroutine test_trapz_dp
 
         x = y**2
         val = trapz(y, x)
-        ans = 2728.0_sp
+        ans = 2728.0_dp
         call check(abs(val - ans) < epsilon(ans))
     end subroutine test_trapz_dp