home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / arrayclash.f < prev    next >
Text File  |  1994-11-06  |  159b  |  11 lines
  1.     real a(3,7),x,y(21),    b(20)
  2.     call suba(a,x)
  3.     call suba(x,a)
  4.     call suba(y,1.0)
  5.     call suba(y(1),x)
  6.     call suba(b,x)
  7.     end
  8.     subroutine suba(w,z)
  9.     real w(21),z
  10.     end
  11.