Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!bellcore!decvax!decwrl!amdcad!lll-crg!seismo!rochester!ur-helheim!torre
From: torre@ur-helheim.UUCP (Fernando Torre)
Newsgroups: net.lang.f77
Subject: Re: Attempts at accessing signal(2) from within f77
Message-ID: <440@ur-helheim.UUCP>
Date: Fri, 31-Jan-86 08:26:25 EST
Article-I.D.: ur-helhe.440
Posted: Fri Jan 31 08:26:25 1986
Date-Received: Mon, 3-Feb-86 04:45:43 EST
References: <611@eagle.ukc.UUCP>
Reply-To: torre@helheim.UUCP (Fernando Torre)
Organization: U. of Rochester, EE Dept.
Lines: 31

In article <611@eagle.ukc.UUCP> map1@ukc.UUCP (M.A.Pralat) writes:
>
>(4)  If the program is a farce could someone supply a small program
>     that is known to work. Hopefully I'll understand things more clearly
>     if I see it working.

   From Unix 4.1BSD signal(3F) manual page, and tested in 4.2BSD :   
c
c  signal function arguments:
c
c            2 - signal number ( see signal(2) manual page )
c      handler - user defined subroutine name
c           -1 - neg. number to indicate that user defined handling
c                routine is to be used
c
      external handler
      iret = signal(2,handler,-1)
1     print*,'  hi there '
      go to 1
2     stop
      end

      subroutine handler(intsignal)
      print*,'  Interrupt received. STOP'
      stop
      end
-- 
Fernando Torre

ARPA    : ur-helheim!torre@rochester.arpa
UUCP	: {allegra,cmcl2,decvax,seismo}!rochester!ur-helheim!torre