From nobody  Mon Apr 27 17:48:17 1998
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
Subject: src/lib/libF77/exit.c still needed
X-Send-Pr-Version: www-1.0

>Number:         6433
>Category:       misc
>Synopsis:       src/lib/libF77/exit.c still needed
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    freebsd-bugs
>State:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Apr 27 17:50:01 PDT 1998
>Closed-Date:    Wed Apr 29 15:43:45 PDT 1998
>Last-Modified:  Wed Apr 29 15:45:08 PDT 1998
>Originator:     Scott Allendorf
>Release:        2.2.6-STABLE
>Organization:
The University of Iowa
>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.
>Release-Note:
>Audit-Trail:
State-Changed-From-To: open->suspended 
State-Changed-By: phk 
State-Changed-When: Wed Apr 29 07:36:01 PDT 1998 
State-Changed-Why:  
He's right.  Any Fortran-aware committers out there ? 
State-Changed-From-To: suspended->closed 
State-Changed-By: jmz 
State-Changed-When: Wed Apr 29 15:43:45 PDT 1998 
State-Changed-Why:  
exit.c has been restored 
>Unformatted:
