Article ID: 106641
Article Last Modified on 10/2/2003
real*4 arr(20)
arr = 7.
Call Sub (arr, 20)
End
Subroutine Sub (arr,n)
real*4 arr(n)
arr(1) = n+1.2
print*, arr(1)
Return
End
print*, arr(1)
Additional query words: nofpsnt 1.00 gpf gp-fault
Keywords: KB106641