home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / comcmp.f < prev    next >
Text File  |  1994-11-06  |  772b  |  36 lines
  1.       character *8 c8,c7*7
  2.       character c1
  3.       common /chars/ c1,c8,c7
  4.       integer iplain
  5.       integer *4 ifour
  6.       integer*2 itwo
  7.       common /ints/ iplain,ifour,itwo
  8.       common /bk1/ a,b,c,d,e,f,g
  9.       c1 = 'A'
  10.       call foo
  11.       end
  12.       subroutine foo
  13.       character *8 c8,c7*7
  14.       character c1
  15.       common /chars/ c7,c8,c1
  16.       integer iplain
  17.       integer *4 ifour
  18.       integer*2 itwo
  19.       common /ints/ iplain,itwo,ifour
  20.       common /bk1/ i,j,k,l,m,n,o
  21.       c1 = 'A'
  22.       call bar
  23.       end
  24.       subroutine bar
  25.       character *8 c8,c7*7
  26.       character c1
  27.       common /chars/ c7,c8
  28.       integer iplain
  29.       integer *4 ifour
  30.       common /ints/ ifour,iplain
  31.       common /bk1/ a(3),j,x,y,z
  32.       c1 = 'A'
  33.       c7 = c1//c8
  34.       end
  35.  
  36.