      PROGRAM TEST_VERIFY
      LOGICAL*4 V
      CALL VERIFY(V)
      WRITE(*,*) V
      END
