gcc/f/runtime/libF77/signal_.c

   1 #include "f2c.h"
   2 #include "signal1.h"
   3
   4 #ifdef KR_headers
   5 ftnint G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
   6 #else
   7 ftnint G77_signal_0 (integer *sigp, sig_pf proc)
   8 #endif
   9 {
  10         int sig;
  11         sig = (int)*sigp;
  12
  13         return (ftnint)signal(sig, proc);
  14         }