+Sat Nov 1 18:03:42 1997 Jeffrey A Law (law@cygnus.com)
+
+ * libF77/signal_.c: Undo last change until we can fix it right.
+
Wed Oct 15 10:06:29 1997 Richard Henderson <rth@cygnus.com>
* libF77/signal_.c (G77_signal_0): Make return type sig_pf as well.
#include "signal1.h"
#ifdef KR_headers
-sig_pf G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
+ftnint G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
#else
-sig_pf G77_signal_0 (integer *sigp, sig_pf proc)
+ftnint G77_signal_0 (integer *sigp, sig_pf proc)
#endif
{
int sig;
sig = (int)*sigp;
- return signal(sig, proc);
+ return (ftnint)signal(sig, proc);
}