gnu/lib/libf2c/libF77/signal_.c


1
2
3
4
5
6
7
8
9
10
11

#include "f2c.h"
#include "signal1.h"

void *
G77_signal_0 (integer * sigp, sig_pf proc)
{
  int sig;
  sig = (int) *sigp;

  return (void *) signal (sig, proc);
}