pkg/ecl/errtest/spperrs.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

task fpe 	= t_fpe,
     segvio 	= t_segvio,
     spperr	= t_spperr

procedure t_fpe ()
real	x, y, z
begin
	x = 1.0
	y = 0.0
	z = x / y
end


procedure t_segvio ()
pointer	ip
begin
	ip = 0
	Memc[ip] = 'x'
end


procedure t_spperr ()
begin
	call error (123, "test spp error()")
end