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