From mboxrd@z Thu Jan  1 00:00:00 1970
From: hjl@lucon.org (H.J. Lu)
To: jgotts@engin.umich.edu
Cc: egcs@cygnus.com
Subject: A libf2c patch for egcs
Date: Mon, 09 Feb 1998 15:15:00 -0000
Message-id: <m0y1zx1-0004ecC@ocean.lucon.org>
X-SW-Source: 1998-02/msg00384.html

Hi,

This patch should fix those new g77 test failures. Maybe it
should be in dejagnu.


-- 
H.J. Lu (hjl@gnu.org)
---
Mon Feb  9 08:34:13 1998  H.J. Lu  (hjl@gnu.org)

	* lib/g77.exp (g77_target_compile): Fix multilibs for libf2c.

Index: lib/g77.exp
===================================================================
RCS file: /home/work/cvs/gnu/egcs/gcc/testsuite/lib/g77.exp,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 g77.exp
--- g77.exp	1997/10/09 17:31:30	1.1.1.1
+++ g77.exp	1998/02/09 20:31:03
@@ -141,6 +141,14 @@
     if [target_info exists g77,no_varargs] {
 	lappend options "additional_flags=-DNO_VARARGS"
     }
+    if ![is_remote host] {
+      set gccpath "[get_multilibs]"
+      set libf2c_dir [lookfor_file ${gccpath} libf2c/libf2c.a]
+      if { $libf2c_dir != "" } {
+	set libf2c_link_flags "-L[file dirname ${libf2c_dir}]"
+	lappend options "additional_flags=${libf2c_link_flags}"
+      }
+    }
     lappend options "compiler=$G77_UNDER_TEST"
     return [target_compile $source $dest $type $options]
 }