diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 30318e72702..cdf9fd0727d 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-24  Michael Sokolov  <msokolov@ivan.Harhan.ORG>
+
+	* libU77/alarm_.c: Separate the #ifdef KR_headers logic from the
+	G77_alarm_0 function definition.  Check for SIG_ERR and provide our own
+	if missing.
+
 2001-01-24  David Billinghurst <David.Billinghurst@riotinto.com>
 
 	* libU77/Makefile.in:  Explicitly generate a.out for check.
diff --git a/libf2c/libU77/alarm_.c b/libf2c/libU77/alarm_.c
index 3e2f293d9b1..e7f9c2ddcc4 100644
--- a/libf2c/libU77/alarm_.c
+++ b/libf2c/libU77/alarm_.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1997 Free Software Foundation, Inc.
+/* Copyright (C) 1997, 2001 Free Software Foundation, Inc.
 This file is part of GNU Fortran libU77 library.
 
 This library is free software; you can redistribute it and/or modify it
@@ -39,14 +39,20 @@ typedef RETSIGTYPE (*sig_type)();
 
 #ifdef KR_headers
 extern sig_type signal();
+#else
+#include <signal.h>
+typedef int (*sig_proc)(int);
+#endif
 
+#ifndef SIG_ERR
+#define SIG_ERR ((sig_type) -1)
+#endif
+
+#ifdef KR_headers
 integer G77_alarm_0 (seconds, proc)
      integer *seconds;
      sig_type proc;
 #else
-#include <signal.h>
-typedef int (*sig_proc)(int);
-
 integer G77_alarm_0 (integer *seconds, sig_proc proc)
 #endif
 {