例: メインルーチンで common / test1 /a,b,c,d サブルーチンで common / test1 /d,b,c,x とそれぞれブロックを宣言すると、サブルーチンで変数dを書き換える と、メインルーチンでの変数aが書き換わっている。 また、サブルーチンで 変数xを書き換えると、メインルーチンでの変数d が書き換わっている。