4.3BSD - /usr/src/usr.lib/libU77/test/sigtst.f

   1:         external fpe
   2:         integer signal
   3:         isave = signal(8, 0, 1)
   4:         write(*,*) "1", signal(8, 0, 0)
   5:         write(*,*) "0", signal(8, fpe, -1)
   6:         write(*,*) "addr fpe", signal(8, 0, isave)
   7:         write(*,*) isave, signal(8, fpe, -1)
   8:         x = 1/x
   9:         write(*,*) "Back again"
  10:         z = 1/z
  11:         write(*,*) "Saved again"
  12:         end
  13: 
  14:         subroutine fpe(flag)
  15:         call signal(8, fpe, -1)
  16: c	call sigset()
  17:         write(*,*) "Hi there sports fans!"
  18:         call flush(6)
  19:         return
  20:         end
  21: 
  22:         subroutine sigset()
  23:         external fpe
  24:         call signal(8, fpe, -1)
  25:         return
  26:         end