From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-21246-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 4359 invoked by alias); 20 Aug 2002 18:46:02 -0000
Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-prs/>
List-Post: <mailto:gcc-prs@gcc.gnu.org>
List-Help: <mailto:gcc-prs-help@gcc.gnu.org>
Sender: gcc-prs-owner@gcc.gnu.org
Received: (qmail 4337 invoked by uid 71); 20 Aug 2002 18:46:01 -0000
Resent-Date: 20 Aug 2002 18:46:01 -0000
Resent-Message-ID: <20020820184601.4336.qmail@sources.redhat.com>
Resent-From: gcc-gnats@gcc.gnu.org (GNATS Filer)
Resent-Cc: gcc-prs@gcc.gnu.org, gcc-bugs@gcc.gnu.org
Resent-Reply-To: gcc-gnats@gcc.gnu.org, mark.e.smith@arnold.af.mil
Received: (qmail 3565 invoked by uid 61); 20 Aug 2002 18:44:46 -0000
Message-Id: <20020820184446.3564.qmail@sources.redhat.com>
Date: Tue, 20 Aug 2002 12:06:00 -0000
From: mark.e.smith@arnold.af.mil
Reply-To: mark.e.smith@arnold.af.mil
To: gcc-gnats@gcc.gnu.org
X-Send-Pr-Version: gnatsweb-2.9.3 (1.1.1.1.2.31)
Subject: fortran/7662: Dimensions of dummy array in subroutine must agree with arrayed passed from calling program.
X-SW-Source: 2002-08/txt/msg00417.txt.bz2
List-Id: <gcc-prs.sourceware.org>


>Number:         7662
>Category:       fortran
>Synopsis:       Dimensions of dummy array in subroutine must agree with arrayed passed from calling program.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue Aug 20 11:46:01 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     mark.e.smith@arnold.af.mil
>Release:        unknown-1.0
>Organization:
>Environment:
Redhat Linux 7.2
GNU Fortran 0.5.26 20000731 (Red Hat Linux 7.1 2.96-98)
>Description:
A dummy array in a subroutine must be at least as large as the passed array in each of it's dimensions. G77 fails if the dimensions of the dummy array are not exactly the same as the passed array.
>How-To-Repeat:
Here is a sample program that demonstrates the problem

      dimension x(3,4)
      data x/1,2,3,4,5,6,7,8,9,10,11,12/
      
      print *, 'Correct Array'
      do i = 1,3
         print*, (x(i,j), j=1,4)
      enddo
      
      print *
      print *, 'Array in Sub'
      call prarray(3,4,x)
      end
      
      subroutine prarray(m,n,dumx)
      dimension dumx(5,8)
      do i = 1,m
         print*, (dumx(i,j), j=1,n)
      enddo
      return
      end


>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: