File tree Expand file tree Collapse file tree 1 file changed +10
-0
lines changed
Expand file tree Collapse file tree 1 file changed +10
-0
lines changed Original file line number Diff line number Diff line change 9999 $SEDI 's|::[[:space:]]*NRAND_DFT[[:space:]]*=.*$|:: NRAND_DFT = 1|g' testsuite/param.f90 # Number of random tests when the dimension is small
100100 RP=r$(( 2**(2 + $(date +%-d) % 2) ))
101101 echo "RP=${RP}"
102+
103+ TEST_SOLVERF90="test_cobyla.f90"
104+ if [[ "$RP" == "r8" && -f "$TEST_SOLVERF90" ]] ; then
105+ echo "Modifying $TEST_SOLVERF90 to skip the recursive tests."
106+ sed -i '/Test recursive call/,/^end module test_solver_mod/d' "$TEST_SOLVERF90" || exit 1
107+ echo -e "end if\nend subroutine test_solver\nend module test_solver_mod" >> $TEST_SOLVERF90
108+ echo "Done."
109+ cat "$TEST_SOLVERF90"
110+ fi
111+
102112 make xtest_${IK}_${RP}_d1_tst.${{ matrix.solver }}
103113 else
104114 make xtest_${IK}.${{ matrix.solver }}
You can’t perform that action at this time.
0 commit comments