C=======================================================================
C   FILE: TEST30.FOR
C   DATE: 21 July 2003
C
C   TEST: Array is reshaped; test for conformance to Fortran 77 standard
C         that the last column entirely accessible.
C
C   Author/contact:  Arnaud Desitter
C=======================================================================
      subroutine sub1(a,n)
      integer n
      real a(n,*)
c for n=7, a(6,3) maps to linear subscript (20) which is within bounds.
      a(6,3) = 0.
      return
      end
      program test30
      real a(10,2)
c a has 20 elements.
      call sub1(a,7)
      write(*,*) 'Test 30 Passed.'
      end