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
10dz2 := df(zz2,z);
11
12z0 := pi*i/2;
13
14sub(z=z0,dz2);
15
16end;
17