program f
common /a/i,j
end
function ff()
common /a/b,c
end
