diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index cef8a7967c41..321df48a4a0a 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,11 @@
+Fri Feb 20 10:11:20 1998  Craig Burley  <burley@gnu.org>
+
+	* Make-lang.in (f77.install-common): Don't install, and
+	don't uninstall existing, Info files if f/g77.info
+	doesn't exit.  (This is a somewhat modified version
+	of an egcs patch on 1998-01-07 12:05:51 by Bruno Haible
+	<bruno@linuix.mathematik.uni-karlsruhe.de>.
+
 Sun Jan 11 02:14:47 1998  Craig Burley  <burley@gnu.org>
 
 	Support FORMAT(I<1+2>) (constant variable-FORMAT
diff --git a/gcc/f/Make-lang.in b/gcc/f/Make-lang.in
index 469843a73bd1..2592fa1f3204 100644
--- a/gcc/f/Make-lang.in
+++ b/gcc/f/Make-lang.in
@@ -331,12 +331,14 @@ f77.install-common:
 # $(INSTALL_DATA) might be a relative pathname, so we can't cd into srcdir
 # to do the install.  The sed rule was copied from stmp-int-hdrs.
 f77.install-info: f77.info
-	-rm -f $(infodir)/g77.info*
-	for f in f/g77.info*; do \
-	    realfile=`echo $$f | sed -e 's|.*/\([^/]*\)$$|\1|'`; \
-	    $(INSTALL_DATA) $$f $(infodir)/$$realfile; \
-	done
-	-chmod a-x $(infodir)/g77.info*
+	if [ -f f/g77.info ] ; then \
+	  rm -f $(infodir)/g77.info*; \
+	  for f in f/g77.info*; do \
+	      realfile=`echo $$f | sed -e 's|.*/\([^/]*\)$$|\1|'`; \
+	      $(INSTALL_DATA) $$f $(infodir)/$$realfile; \
+	  done; \
+	  chmod a-x $(infodir)/g77.info* \
+	fi
 
 f77.install-man: $(srcdir)/f/g77.1
 	-if [ -f f771$(exeext) ] ; then \