The answer to the crazy Fortran puzzle is in the comments.

        BLOCK data
        IMPLICIT NONE
        COMPLEX*16 C
        INTEGER ARRAY(35)
        REAL R
        COMMON /WOW/ R,ARRAY
        EQUIVALENCE (R,C)
        DATA (ARRAY(I),I=1,5)/5*7/
!                   ^
!                   ^
! "I" is not explicitly declared,
! and IMPLICIT NONE is in effect.
!
        END