From 0e52c1777d3095e5fb9016de8508b249aa0e3a5b Mon Sep 17 00:00:00 2001
From: Richard Henderson <rth@cygnus.com>
Date: Wed, 15 Oct 1997 10:02:53 -0600
Subject: [PATCH] signal_.c (G77_signal_0): Make return type sig_pf as well.

        * libF77/signal_.c (G77_signal_0): Make return type sig_pf as well.
        * libI77/fio.h: Include <string.h> if STDC_HEADERS.
        * libU77/chmod_.c: Likewise.

From-SVN: r15911
---
 gcc/f/runtime/libF77/signal_.c | 6 +++---
 gcc/f/runtime/libI77/fio.h     | 3 +++
 gcc/f/runtime/libU77/chmod_.c  | 3 +++
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/gcc/f/runtime/libF77/signal_.c b/gcc/f/runtime/libF77/signal_.c
index 1ac81391aef..2e1af9d4ae0 100644
--- a/gcc/f/runtime/libF77/signal_.c
+++ b/gcc/f/runtime/libF77/signal_.c
@@ -2,13 +2,13 @@
 #include "signal1.h"
 
 #ifdef KR_headers
-ftnint G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
+sig_pf G77_signal_0 (sigp, proc) integer *sigp; sig_pf proc;
 #else
-ftnint G77_signal_0 (integer *sigp, sig_pf proc)
+sig_pf G77_signal_0 (integer *sigp, sig_pf proc)
 #endif
 {
 	int sig;
 	sig = (int)*sigp;
 
-	return (ftnint)signal(sig, proc);
+	return signal(sig, proc);
 	}
diff --git a/gcc/f/runtime/libI77/fio.h b/gcc/f/runtime/libI77/fio.h
index 769d360a626..e9e3b391407 100644
--- a/gcc/f/runtime/libI77/fio.h
+++ b/gcc/f/runtime/libI77/fio.h
@@ -4,6 +4,9 @@
 /* ANSI C */
 #include <stddef.h>
 #endif
+#ifdef STDC_HEADERS
+#include <string.h>
+#endif
 
 #ifndef SEEK_SET
 #define SEEK_SET 0
diff --git a/gcc/f/runtime/libU77/chmod_.c b/gcc/f/runtime/libU77/chmod_.c
index 7ca05b7604d..d482d9ed828 100644
--- a/gcc/f/runtime/libU77/chmod_.c
+++ b/gcc/f/runtime/libU77/chmod_.c
@@ -31,6 +31,9 @@ Boston, MA 02111-1307, USA.  */
 #else
 #  include <stdio.h>
 #endif
+#if STDC_HEADERS
+#  include <string.h>
+#endif
 
 #include "f2c.h"
 
-- 
2.30.2