home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / dims.f < prev    next >
Text File  |  1994-11-06  |  442b  |  15 lines
  1.       subroutine foo(d)
  2.       parameter (n=1,m=2,k=3)
  3.       character *17 xx
  4.       integer a(1:m*n,-n+2), b(n*(m+k)*2,k+1)
  5.       integer d(*,*)
  6.       common /xx/ xx(101)
  7.       character*1 str, str2*(n), str3*(*), str4*(m+n*k)
  8.       external str
  9.       dimension str2(k*m)
  10.       character *10 c(len('won''t'))
  11.       a(n,1) = a(1,m)
  12.       c(2)(a(ichar('A'//'hello'), ichar(char(40))+3)
  13.      $     :ichar(str("won""t",40) (1:1))) = 'x'
  14.       end
  15.