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)) call abort () 13 if ((i .ne. 4) .or. (j .ne. 4) .or. (k .ne. 4) .or. (l .ne. 4)) & 14 call abort () 15end program 16