home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / comclash.f < prev    next >
Text File  |  1994-11-06  |  236b  |  19 lines

  1.     common /abc/ x,y,z
  2.     abc = 5
  3.     x = abc
  4.     end
  5.     subroutine sub1
  6.     common /abc/ x,y,z
  7.     real abc(5)
  8.     x = abc(1)
  9.     call sub2(x,y)
  10.     call sub2(1.0,2)
  11.     end
  12.     subroutine sub2(a,b)
  13.     common /abc/ x,i,z
  14.     x = abc(1)
  15.     end
  16.     function abc(n)
  17.     abc = n*n
  18.     end
  19.