1program prog
2 common /block/ i
3 equivalence (a, b, c), (i, j, k ,l)
4 a = 1.0
5 b = 2.0
6 c = 3.0
7 i = 1
8 j = 2
9 k = 3
10 l = 4
11
12 if ((a .ne. 3.0) .or. (b .ne. 3.0) .or. (c .ne. 3.0)) STOP 1
13 if ((i .ne. 4) .or. (j .ne. 4) .or. (k .ne. 4) .or. (l .ne. 4)) &
14 STOP 2
15end program
16