From owner-freebsd-bugs  Tue Mar 26 16:20:07 1996
Return-Path: owner-bugs
Received: (from root@localhost)
          by freefall.freebsd.org (8.7.3/8.7.3) id QAA13719
          for bugs-outgoing; Tue, 26 Mar 1996 16:20:07 -0800 (PST)
Received: (from gnats@localhost)
          by freefall.freebsd.org (8.7.3/8.7.3) id QAA13689
          Tue, 26 Mar 1996 16:20:04 -0800 (PST)
Resent-Date: Tue, 26 Mar 1996 16:20:04 -0800 (PST)
Resent-Message-Id: <199603270020.QAA13689@freefall.freebsd.org>
Resent-From: gnats (GNATS Management)
Resent-To: freebsd-bugs
Resent-Reply-To: FreeBSD-gnats@freefall.FreeBSD.org,
        kargl@troutmask.apl.washington.edu
Received: from troutmask.apl.washington.edu (troutmask.apl.washington.edu [128.95.76.54])
          by freefall.freebsd.org (8.7.3/8.7.3) with SMTP id QAA13339
          for <FreeBSD-gnats-submit@freebsd.org>; Tue, 26 Mar 1996 16:18:23 -0800 (PST)
Received: (from root@localhost) by troutmask.apl.washington.edu (8.6.12/8.6.9) id QAA07538; Tue, 26 Mar 1996 16:20:10 -0800
Message-Id: <199603270020.QAA07538@troutmask.apl.washington.edu>
Date: Tue, 26 Mar 1996 16:20:10 -0800
From: "Steven G. Kargl" <kargl@troutmask.apl.washington.edu>
Reply-To: kargl@troutmask.apl.washington.edu
To: FreeBSD-gnats-submit@freebsd.org
X-Send-Pr-Version: 3.2
Subject: gnu/1101: f2c's -krd option in f77 (patch enclosed)
Sender: owner-bugs@freebsd.org
X-Loop: FreeBSD.org
Precedence: bulk


>Number:         1101
>Category:       gnu
>Synopsis:       f2c's -krd does not work with f77 wrapper
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-bugs
>State:          open
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Tue Mar 26 16:20:02 PST 1996
>Last-Modified:
>Originator:     Steven G. Kargl
>Organization:
>Release:        FreeBSD 2.1-STABLE i386
>Environment:
>Description:

f77 command does not accept the -krd f2c option.

>From f2c manpage:

       -kr    Use temporary values to enforce Fortran  expression
              evaluation  where K&R (first edition) parenthesiza-
              tion rules allow rearrangement.  If the  option  is
              `-krd',  use  double precision temporaries even for
              single-precision operands.



>How-To-Repeat:

%f77 -krd some_fortran_file.f

>Fix:

*** gcc.c.orig	Tue Mar 26 15:59:42 1996
--- gcc.c	Tue Mar 26 16:00:24 1996
***************
*** 720,726 ****
    {"@f2c",
     "f2c %{checksubscripts:-C} %{I2} %{onetrip} %{honorcase:-U} %{u} %{w}\
          %{ANSIC:-A} %{a} %{C++}\
!         %{c} %{E} %{ec} %{ext} %{f} %{72} %{g} %{h} %{i2} %{kr}\
          %{P} %{p} %{r} %{r8} %{s} %{w8} %{z} %{N*}\
          %i %{!pipe: -o %g.c} %{pipe:-o -}|\n",
     "cpp -lang-c %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
--- 720,726 ----
    {"@f2c",
     "f2c %{checksubscripts:-C} %{I2} %{onetrip} %{honorcase:-U} %{u} %{w}\
          %{ANSIC:-A} %{a} %{C++}\
!         %{c} %{E} %{ec} %{ext} %{f} %{72} %{g} %{h} %{i2} %{kr} %{krd}\
          %{P} %{p} %{r} %{r8} %{s} %{w8} %{z} %{N*}\
          %i %{!pipe: -o %g.c} %{pipe:-o -}|\n",
     "cpp -lang-c %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
>Audit-Trail:
>Unformatted: