From owner-freebsd-questions  Wed Dec 10 08:59:50 1997
Return-Path: <owner-freebsd-questions>
Received: (from root@localhost)
          by hub.freebsd.org (8.8.7/8.8.7) id IAA27402
          for questions-outgoing; Wed, 10 Dec 1997 08:59:50 -0800 (PST)
          (envelope-from owner-freebsd-questions)
Received: from clio.rice.edu (clio.rice.edu [128.42.105.3])
          by hub.freebsd.org (8.8.7/8.8.7) with SMTP id IAA27390
          for <questions@freebsd.org>; Wed, 10 Dec 1997 08:59:47 -0800 (PST)
          (envelope-from keyser@clio.rice.edu)
Received: by clio.rice.edu (AIX 3.2/UCB 5.64/4.03)
          id AA15757; Wed, 10 Dec 1997 10:59:19 -0600
Date: Wed, 10 Dec 1997 10:59:19 -0600
From: keyser@clio.rice.edu (Kevin Keyser)
Message-Id: <9712101659.AA15757@clio.rice.edu>
To: questions@freebsd.org
Subject: constant parameters in f2c/f77
Sender: owner-freebsd-questions@freebsd.org
X-Loop: FreeBSD.org
Precedence: bulk

I see what I would call a bug in f2c/f77 running on a 2.2.2R machine.
The code below shows the behavior.  Looking at the C code produced
by f2c I can understand why it happens, but does anyone know where
something like this should be reported?

Kevin

=========================

      WRITE(6,*) 2
      CALL ALPHA(2)
      WRITE(6,*) 2
      END

      SUBROUTINE ALPHA(I)
      I = 1
      END

=========================

fbsd % f77 test.f
test2.f:
   MAIN:
   alpha:
fbsd % ./a.out
 2
 1