# HG changeset patch
# User Rik <rik@octave.org>
# Date 1391231295 28800
# Node ID 1ad77b3e6bef0f61268d230e675fdfe07ba290f8
# Parent  71d1a1450365e85e9e931d35ff5dd914231c544e
interp1.m: Demote error to warning about multiple discontinuties (bug #41386).

* interp1.m: Demote error to warning about multiple discontinuties
(bug #41386).  Add %!warning test for new behavior.

diff --git a/scripts/general/interp1.m b/scripts/general/interp1.m
--- a/scripts/general/interp1.m
+++ b/scripts/general/interp1.m
@@ -212,7 +212,7 @@
     if (have_jumps)
       if (strcmp (method, "linear") || strcmp (method, ("nearest")))
         if (any (jumps(1:nx-2) & jumps(2:nx-1)))
-          error ("interp1: extra points in discontinuities");
+          warning ("interp1: multiple discontinuities at the same X value");
         endif
       else
         error ("interp1: discontinuities not supported for method '%s'", method);
@@ -640,6 +640,7 @@
 %!error <table too short> interp1 (1,1,1, "linear")
 %!error <table too short> interp1 (1,1,1, "*nearest")
 %!error <table too short> interp1 (1,1,1, "*linear")
+%!warning <multiple discontinuities> interp1 ([1 1 1 2], [1 2 3 4], 1);
 %!error <discontinuities not supported> interp1 ([1 1],[1 2],1, "pchip")
 %!error <discontinuities not supported> interp1 ([1 1],[1 2],1, "cubic")
 %!error <discontinuities not supported> interp1 ([1 1],[1 2],1, "spline")