adde another test case

jacobwilliams · Sep 4, 2022 · 7a73293 · 7a73293
1 parent 4aef13a
commit 7a73293
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/test/root_tests.f90 b/test/root_tests.f90
@@ -1202,12 +1202,21 @@ subroutine problems(x, ax, bx, fx, xroot, cases, num_of_problems, latex)
         if (present(x)) f = sin(x) - x**2
         if (present(latex)) latex = '\sin(x) - x^2'
 
+    ! linear function:
+    case(118)
+        a = -1000.0_wp
+        b = 1.0_wp
+        root = 0.0_wp
+        if (present(x)) f = x
+        if (present(latex)) latex = 'x'
+
+
     case default
         write(*,*) 'invalid case: ', nprob
         error stop 'invalid case'
     end select
 
-    if (present(num_of_problems)) num_of_problems = 117
+    if (present(num_of_problems)) num_of_problems = 118
 
     ! outputs:
     if (present(ax))    ax = a