1% Regression test for a sensible error message
2
3% Added by Rainer Schöpf, 30 Aug 2011
4
5% The substitution at the end of this test file causes 0/0 to be formed.
6% This file tests that a sensible error message is printed.
7
8zz2 := (z*(z-2*pi*i)*(z-pi*i/2)^2)/(sinh z-i);
9
10
11                 3            2       2        3
12        z*(2*i*pi  - 12*i*pi*z  - 9*pi *z + 4*z )
13zz2 := -------------------------------------------
14                     4*(sinh(z) - i)
15
16
17dz2 := df(zz2,z);
18
19
20                         3                      3               2  2
21dz2 := ( - 2*cosh(z)*i*pi *z + 12*cosh(z)*i*pi*z  + 9*cosh(z)*pi *z
22
23                      4                 3                    2
24         - 4*cosh(z)*z  + 2*sinh(z)*i*pi  - 36*sinh(z)*i*pi*z
25
26                        2                 3          2           3       3
27         - 18*sinh(z)*pi *z + 16*sinh(z)*z  + 18*i*pi *z - 16*i*z  + 2*pi
28
29                  2             2
30         - 36*pi*z )/(4*(sinh(z)  - 2*sinh(z)*i - 1))
31
32
33z0 := pi*i/2;
34
35
36       i*pi
37z0 := ------
38        2
39
40
41sub(z=z0,dz2);
42
43
44***** 0/0 formed
45
46
47end;
48
49Tested on x86_64-pc-windows CSL
50Time (counter 1): 0 ms
51
52End of Lisp run after 0.01+0.04 seconds
53real 0.17
54user 0.01
55sys 0.04
56