4.4BSD/usr/src/usr.bin/f77/libU77/test/sigtrtst.f

C
C Copyright (c) 1980 The Regents of the University of California.
C All rights reserved.
C
C This module is believed to contain source code proprietary to AT&T.
C Use and redistribution is subject to the Berkeley Software License
C Agreement and your Software Agreement with AT&T (Western Electric).
C
C	@(#)sigtrtst.f	5.2 (Berkeley) 4/12/91
C

	integer signal
	external trap
	isav = signal(8, 0, 1)
	write(*,*) "1", signal(8, 0, 0)
	write(*,*) "0", signal(8, trap, -1)
	write(*,*) "addr", signal(8, 0, isav)
	write(*,*) isav, signal(8, trap, -1)
	x = 1.0/x
	end

	subroutine trap(isig)
	write(*,*) "Here I am."
	end