1C
2C Copyright (c) 1980 The Regents of the University of California.
3C All rights reserved.
4C
5C %sccs.include.proprietary.f%
6C
7C	@(#)sigtrtst.f	5.2 (Berkeley) 04/12/91
8C
9
10	integer signal
11	external trap
12	isav = signal(8, 0, 1)
13	write(*,*) "1", signal(8, 0, 0)
14	write(*,*) "0", signal(8, trap, -1)
15	write(*,*) "addr", signal(8, 0, isav)
16	write(*,*) isav, signal(8, trap, -1)
17	x = 1.0/x
18	end
19
20	subroutine trap(isig)
21	write(*,*) "Here I am."
22	end
23