From owner-freebsd-bugs  Mon Apr 27 17:50:06 1998
Return-Path: <owner-freebsd-bugs@FreeBSD.ORG>
Received: (from majordom@localhost)
          by hub.freebsd.org (8.8.8/8.8.8) id RAA23500
          for freebsd-bugs-outgoing; Mon, 27 Apr 1998 17:50:06 -0700 (PDT)
          (envelope-from owner-freebsd-bugs@FreeBSD.ORG)
Received: (from gnats@localhost)
          by hub.freebsd.org (8.8.8/8.8.8) id RAA23440;
          Mon, 27 Apr 1998 17:50:02 -0700 (PDT)
          (envelope-from gnats)
Received: (from nobody@localhost)
          by hub.freebsd.org (8.8.8/8.8.8) id RAA23173;
          Mon, 27 Apr 1998 17:48:17 -0700 (PDT)
          (envelope-from nobody)
Message-Id: <199804280048.RAA23173@hub.freebsd.org>
Date: Mon, 27 Apr 1998 17:48:17 -0700 (PDT)
From: scott-allendorf@uiowa.edu
To: freebsd-gnats-submit@FreeBSD.ORG
X-Send-Pr-Version: www-1.0
Subject: misc/6433: src/lib/libF77/exit.c still needed
Sender: owner-freebsd-bugs@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.org


>Number:         6433
>Category:       misc
>Synopsis:       src/lib/libF77/exit.c still needed
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    freebsd-bugs
>State:          open
>Quarter:
>Keywords:
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Apr 27 17:50:01 PDT 1998
>Last-Modified:
>Originator:     Scott Allendorf
>Organization:
The University of Iowa
>Release:        2.2.6-STABLE
>Environment:
FreeBSD lazarus.physics.uiowa.edu 2.2.6-STABLE FreeBSD 2.2.6-STABLE #0: Sat Apr 25 19:39:24 CDT 1998     sca@lazarus.physics.uiowa.edu:/usr/src/sys/compile/LAZARUS  i386
>Description:
src/lib/libF77/F77_aloc.c still refers to the function exit_().  This
function is/was defined in src/lib/libF77/exit.c, which was removed some
time ago.  Any FORTRAN program using 'CALL EXIT' will fail to link using
f77.

>How-To-Repeat:
% cat > junk.f
      PROGRAM JUNK
      PRINT *, 'Hello world.'
      CALL EXIT
      END
^D
% f77 -o junk junk.f

>Fix:
Fix by restoring src/lib/libF77/exit.c or getting exit_.c from a 
current netlib f2c distribution.  The corresponding change also needs 
to be made to src/lib/libf2c/Makefile.
>Audit-Trail:
>Unformatted:

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-bugs" in the body of the message