fixed precision of variable ans

Author: p-costa

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