| program common1 !<<<<< 2, 13, 2, 18,, pass | |
| common /block/ a, b, c, d, e,& | |
| f, g, h, i, j,& | |
| k, l, m, n, o,& | |
| p, q, r, s, t,& | |
| u, v, w, x, y, z,& | |
| a1, b1, c1, d1, e1, f1,& | |
| g1, h1, i1, j1, k1, l1,& | |
| m1, n1, o1, p1, q1, r1,& | |
| s1, t1, u1, v1, w1, x1,& | |
| y1, z1 | |
| end program common1 | |
| subroutine s | |
| common /block/ i, j | |
| end subroutine |