      PROGRAM TESTARRAY
      IMPLICIT NONE
      
      INTEGER X(-3:3)
      INTEGER I

      DO 10 I = -3, 3
        X(I) = 2 * I + 6
        PRINT *, X(I)
10    CONTINUE

      STOP
      END
