      program test

#include<test.com>

      common /x/ a,b

      real a(n)
      real b(n)

      do i=1,n
         a(i) = 1
      end do

      end
