fortran/7662: Dimensions of dummy array in subroutine must agree with arrayed passed from calling program.

[mark dot e dot smith at arnold dot af dot mil]

>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: