TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-22 20:36:01 +01:00
Code Issues Projects Releases Wiki Activity

Correctly ignore asserts for vfc_ci

Browse Source 
Some asserts where not correctly ignored with vfc_ci and caused tests to
exit prematurely when compiling the library with Verificarlo and using
stochastic backends.
This commit is contained in:
Aurelien Delval 2021-08-24 19:16:49 +00:00
parent 26ca2d3907
commit 291ea5441d
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
org/qmckl_ao.org
View File

@ -2846,6 +2846,7 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C)
end do
test_qmckl_ao_power = qmckl_ao_power(context, n, X, LMAX, P, LDP)
print *, "test_qmckl_ao_power", test_qmckl_ao_power
vfc_err = qmckl_probe_check("ao"//C_NULL_CHAR, "power_2_2"//C_NULL_CHAR, &
DBLE(P(2,2)), DBLE(0), DBLE(epsilon))
@ -2854,6 +2855,7 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C)
test_qmckl_ao_power = QMCKL_FAILURE
#ifndef VFC_CI
do j=1,n
do i=1,LMAX(j)
if ( X(j)**i == 0.d0 ) then
@ -2863,6 +2865,7 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C)
end if
end do
end do
#endif
test_qmckl_ao_power = QMCKL_SUCCESS
deallocate(X,P,LMAX)

6
org/qmckl_distance.org
View File

@ -308,7 +308,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
LDC = 5
allocate( A(LDA,m), B(LDB,n), C(LDC,n) )
do j=1,m
do i=1,m
A(i,j) = -10.d0 + dble(i+j)
@ -362,8 +361,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
vfc_err = qmckl_probe_check("distance"//C_NULL_CHAR, "distance_sq_nT_2_2"//C_NULL_CHAR, DBLE(C(2,2)), DBLE(0), DBLE(1.d-14))
if (test_qmckl_distance_sq == 0) return
test_qmckl_distance_sq = QMCKL_FAILURE
@ -385,7 +382,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
if (test_qmckl_distance_sq == 0) return
test_qmckl_distance_sq = QMCKL_FAILURE
do j=1,n
@ -404,8 +400,6 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
vfc_err = qmckl_probe_check("distance"//C_NULL_CHAR, "distance_sq_nN_2_2"//C_NULL_CHAR, DBLE(C(2,2)), DBLE(0), DBLE(1.d-14))
if (test_qmckl_distance_sq == 0) return
test_qmckl_distance_sq = QMCKL_FAILURE
do j=1,n