contrib/gcc-3.4/libf2c/libF77/signal_.c

   1 #include "f2c.h"
   2 #include "signal1.h"
   3
   4 void *
   5 G77_signal_0 (integer * sigp, sig_pf proc)
   6 {
   7   int sig;
   8   sig = (int) *sigp;
   9
  10   return (void *) signal (sig, proc);
  11 }