program prog | |
common /block/ i | |
equivalence (a, b, c), (i, j, k ,l) | |
a = 1.0 | |
b = 2.0 | |
c = 3.0 | |
i = 1 | |
j = 2 | |
k = 3 | |
l = 4 | |
if ((a .ne. 3.0) .or. (b .ne. 3.0) .or. (c .ne. 3.0)) call abort () | |
if ((i .ne. 4) .or. (j .ne. 4) .or. (k .ne. 4) .or. (l .ne. 4)) & | |
call abort () | |
end program |