From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-15114-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 31955 invoked by alias); 7 May 2002 16:04:31 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 31892 invoked from network); 7 May 2002 16:04:30 -0000
Received: from unknown (HELO tetsuo.nj.caldera.com) (63.124.204.226)
  by sources.redhat.com with SMTP; 7 May 2002 16:04:30 -0000
Received: from caldera.com (localhost.localdomain [127.0.0.1])
	by tetsuo.nj.caldera.com (8.11.6/8.11.6) with ESMTP id g47GGCc03264;
	Tue, 7 May 2002 12:16:12 -0400
Message-ID: <3CD7FDCB.EF6189CA@caldera.com>
Date: Tue, 07 May 2002 09:04:00 -0000
From: Petr Sorfa <petrs@caldera.com>
Organization: Caldera
X-Accept-Language: en
MIME-Version: 1.0
To: Michael Elizabeth Chastain <mec@shout.net>
CC: gdb-patches@sources.redhat.com
Subject: Re: [RFA] Generalizing compiler invocation for FORTRAN95 testsuite
References: <200205071559.g47FxXK21376@duracef.shout.net>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-SW-Source: 2002-05/txt/msg00162.txt.bz2

Hi Michael,

> I'm curious ... how are you invoking efc and ifc now?
> Can you post an excerpt from your code?

A bit of a hack really. I haven't used the $compiler variable. Anyway,
here is the excerpt:

-------
set hardware [exec uname -m]

set CC ""

if { $hardware == "i686" } {
  set CC "ifc"
  } elseif { $hardware == "ia64" } {
  set CC "efc"
  } else {
    puts "ERROR in ${testfile}: Failed to find FORTRAN compiler for
${hardware}"  }

puts "cd ${srcdir}/${subdir}; exec ${CC} -g -o ${testfile} ${srcfile}"
set currpwd [ pwd ]
catch "cd ${srcdir}/${subdir}; exec ${CC} -g -o ${testfile} ${srcfile}"
output
catch "cd ${currpwd}"
------

Petr