corrected bug is threaded constrained test for cdhj

src/makemaster

@@ -323,6 +323,28 @@ test_quadruple_64:
 	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
                      test_cutest $(Q64) PWD=$(PWD)/test )
 
+# comprehensive tools tests
+
+run_tools_test: run_tools_test_$(PRECIS)
+run_tools_test_single:
+	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
+                     run_test_cutest $(S32) PWD=$(PWD)/test )
+run_tools_test_double:
+	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
+                     run_test_cutest $(D32) PWD=$(PWD)/test )
+run_tools_test_quadruple:
+	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
+                     run_test_cutest $(Q32) PWD=$(PWD)/test )
+run_tools_test_single_64:
+	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
+                     run_test_cutest $(S64) PWD=$(PWD)/test )
+run_tools_test_double_64:
+	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
+                     run_test_cutest $(D64) PWD=$(PWD)/test )
+run_tools_test_quadruple_64:
+	( cd test  ; $(MAKE) -f $(CUTEST)/makefiles/$(VERSION) \
+                     run_test_cutest $(Q64) PWD=$(PWD)/test )
+
 # all unconstrained tools and interface tests
 
 all_unconstrained: all_unconstrained_$(PRECIS)

src/test/ctest_threaded.F90

@@ -437,7 +437,8 @@ PROGRAM CUTEST_test_constrained_tools
 
       y0 = 2.0_rp_
       WRITE( out, "( ' CALL CUTEST_cdhj' )" )
-      CALL CUTEST_cdhj_threaded_r( status, n, m, X, y0, Y, l_h2_1, H2_val )
+      CALL CUTEST_cdhj_threaded_r( status, n, m, X, y0, Y, l_h2_1,             &
+                                   H2_val, thread )
       IF ( status /= 0 ) GO to 900
       CALL WRITE_H_dense( out, n, l_h2_1, H2_val )