lang/fortran/lib/libF77/signal_.c

   1 #include "f2c.h"
   2
   3 typedef void (*sig_type)();
   4 extern sig_type signal();
   5
   6 integer signal_(sigp, procp)
   7 integer *sigp, *procp;
   8 {
   9         int sig;
  10         sig_type proc;
  11         sig = *sigp;
  12         proc = *(sig_type *)procp;
  13
  14         return (integer)signal(sig, proc);
  15         }