REAL AMAT(20),TEST
      INTEGER N
      TEST = 1
      TEST = TEST*2
      TEST = TEST*3
      N = 20
      DO   I=1,N
         AMAT(I) = I
      ENDDO

      DO   I=1,N
        IF(TEST.EQ.AMAT(I)) GOTO 10
      ENDDO
      TEST = TEST*4

 10   WRITE(*,*)TEST,I
      STOP
      END