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