subroutine sub02
common /my_common/a,b
print *,'subroutine sub02'
return
end
