Index: f/ChangeLog

	* g77spec.c (lang_specific_driver) [ENABLE_SHARED_LIBGCC]: Add
	libgcc_s.so if libf2c is used.
	* Make-lang.in (g77spec.o): Use DRIVER_DEFINES.

Index: testsuite/ChangeLog

	* lib/g77.exp: Don't specify --rpath-link.

From-SVN: r47195

gcc/f/ChangeLog

+2001-11-19  Geoffrey Keating  <geoffk@redhat.com>
+
+	* g77spec.c (lang_specific_driver) [ENABLE_SHARED_LIBGCC]: Add
+	libgcc_s.so if libf2c is used.
+	* Make-lang.in (g77spec.o): Use DRIVER_DEFINES.
+
 2001-11-19  Toon Moene <toon@moene.indiv.nluug.nl>
 
 	* .cvsignore: Ignore g77.1

gcc/f/Make-lang.in

@@ -67,8 +67,10 @@ F77 f77: f771$(exeext)
 
 g77spec.o: $(srcdir)/f/g77spec.c $(srcdir)/f/version.h $(SYSTEM_H) $(GCC_H) \
 	$(CONFIG_H)
-	$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
-		$(srcdir)/f/g77spec.c $(OUTPUT_OPTION)
+	(SHLIB_LINK='$(SHLIB_LINK)' \
+	SHLIB_MULTILIB='$(SHLIB_MULTILIB)'; \
+	$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(DRIVER_DEFINES) \
+		$(INCLUDES) $(srcdir)/f/g77spec.c)
 
 g77version.o: $(srcdir)/f/version.c
 	$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -o g77version.o \

gcc/f/g77spec.c

@@ -523,6 +523,23 @@ or type the command `info -f g77 Copying'.\n\
 	}
     }
 
+#ifdef ENABLE_SHARED_LIBGCC
+  if (library)
+    {
+      int i;
+
+      for (i = 1; i < g77_newargc; i++)
+	if (g77_newargv[i][0] == '-')
+	  if (strcmp (g77_newargv[i], "-static-libgcc") == 0
+	      || strcmp (g77_newargv[i], "-static") == 0)
+	    break;
+    
+      if (i == g77_newargc)
+	append_arg ("-shared-libgcc");
+    }
+  
+#endif
+
   if (verbose
       && g77_newargv != g77_xargv)
     {

gcc/testsuite/ChangeLog

 2001-11-19  Geoffrey Keating  <geoffk@redhat.com>
 
+	* lib/g77.exp: Don't specify --rpath-link.
+
 	* gcc.dg/cpp/cpp.exp: For testing on a remote host, copy
 	across all the headers.
 	* gcc.dg/format/format.exp: For testing on a remote host,

gcc/testsuite/lib/g77.exp

@@ -84,7 +84,6 @@ proc g77_link_flags { paths } {
       if [file exists "${gccpath}/libf2c/.libs/libg2c.a"] {
           append flags "-L${gccpath}/libf2c/.libs "
 	  if [file exists "${gccpath}/libf2c/.libs/libg2c.so"] {
-	      append flags "-Wl,--rpath-link,${rootme} "
 	      append ld_library_path ":${gccpath}/libf2c/.libs"
 	  }
       }