tests adjusted to previous commit

JHenneberg@37c84c7

Author: JHenneberg

src/test/test_assert.F90

@@ -15,30 +15,30 @@ program test_assert
   call test_case_create('real', test_suite_approximate)
   call assert_approximate(1.0, 2.0, suite=test_suite_approximate)
   call assert_approximate(1.0, 1.0, suite=test_suite_approximate)
-  call assert_approximate(1.0, 1.10, eps=0.1, suite=test_suite_approximate)
-  call assert_approximate(1.0, 1.01, eps=0.1, suite=test_suite_approximate)
+  call assert_approximate(1.0, 1.10, eps_user=0.01, suite=test_suite_approximate)
+  call assert_approximate(1.0, 1.01, eps_user=0.01, suite=test_suite_approximate)
   call assert_approximate(1.0D0, 1.1D0, suite=test_suite_approximate)
   call assert_approximate(1.0D0, 1.00000000001D0, suite=test_suite_approximate)
-  call assert_approximate(1.0D0, 1.1D0, eps=0.1D0, suite=test_suite_approximate)
-  call assert_approximate(1.0D0, 1.00000000001D0, eps=0.1D0, suite=test_suite_approximate)
+  call assert_approximate(1.0D0, 1.1D0, eps_user=0.01D0, suite=test_suite_approximate)
+  call assert_approximate(1.0D0, 1.00000000001D0, eps_user=0.01D0, suite=test_suite_approximate)
 
   call assert_approximate([1.0, 1.0], [1.0, 1.10], suite=test_suite_approximate)
   call assert_approximate([1.0, 1.0], [1.0, 1.00000000001], suite=test_suite_approximate)
-  call assert_approximate([1.0, 1.0], [1.0, 1.10], eps=0.1, suite=test_suite_approximate)
-  call assert_approximate([1.0, 1.0], [1.0, 1.01], eps=0.1, suite=test_suite_approximate)
+  call assert_approximate([1.0, 1.0], [1.0, 1.10], eps_user=0.01, suite=test_suite_approximate)
+  call assert_approximate([1.0, 1.0], [1.0, 1.01], eps_user=0.01, suite=test_suite_approximate)
   call assert_approximate([1.0D0, 1.0D0], [1.0D0, 1.1D0], suite=test_suite_approximate)
   call assert_approximate([1.0D0, 1.0D0], [1.0D0, 1.00000000001D0], suite=test_suite_approximate)
-  call assert_approximate([1.0D0, 1.0D0], [1.0D0, 1.1D0], eps=0.1D0, suite=test_suite_approximate)
-  call assert_approximate([1.0D0, 1.0D0], [1.0D0, 1.01D0], eps=0.1D0, suite=test_suite_approximate)
+  call assert_approximate([1.0D0, 1.0D0], [1.0D0, 1.1D0], eps_user=0.01D0, suite=test_suite_approximate)
+  call assert_approximate([1.0D0, 1.0D0], [1.0D0, 1.01D0], eps_user=0.01D0, suite=test_suite_approximate)
 
   call assert_approximate(reshape([1.0, 1.0, 1.0, 1.0], [2, 2]), reshape([1.0, 1.1, 1.0, 1.0], [2, 2]), suite=test_suite_approximate)
   call assert_approximate(reshape([1.0, 1.0, 1.0, 1.0], [2, 2]), reshape([1.0, 1.00000000001, 1.0, 1.0], [2, 2]), suite=test_suite_approximate)
-  call assert_approximate(reshape([1.0, 1.0, 1.0, 1.0], [2, 2]), reshape([1.0, 1.1, 1.0, 1.0], [2, 2]), eps=0.1, suite=test_suite_approximate)
-  call assert_approximate(reshape([1.0, 1.0, 1.0, 1.0], [2, 2]), reshape([1.0, 1.01, 1.0, 1.0], [2, 2]), eps=0.1, suite=test_suite_approximate)
+  call assert_approximate(reshape([1.0, 1.0, 1.0, 1.0], [2, 2]), reshape([1.0, 1.10, 1.0, 1.0], [2, 2]), eps_user=0.01, suite=test_suite_approximate)
+  call assert_approximate(reshape([1.0, 1.0, 1.0, 1.0], [2, 2]), reshape([1.0, 1.01, 1.0, 1.0], [2, 2]), eps_user=0.01, suite=test_suite_approximate)
   call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.1D0, 1.0D0, 1.0D0], [2, 2]), suite=test_suite_approximate)
   call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.000000000001D0, 1.0D0, 1.0D0], [2, 2]), suite=test_suite_approximate)
-  call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.1D0, 1.0D0, 1.0D0], [2, 2]), eps=0.1D0, suite=test_suite_approximate)
-  call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.01D0, 1.0D0, 1.0D0], [2, 2]), eps=0.1D0, suite=test_suite_approximate)
+  call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.10D0, 1.0D0, 1.0D0], [2, 2]), eps_user=0.01D0, suite=test_suite_approximate)
+  call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.01D0, 1.0D0, 1.0D0], [2, 2]), eps_user=0.01D0, suite=test_suite_approximate)
 
   call test_suite_report(test_suite_approximate)
   call test_case_final(test_suite_approximate)