Commit 2f25dda1 authored by Kim, Jungwon's avatar Kim, Jungwon

remove TRIM

parent fe6b60d9
......@@ -44,10 +44,10 @@ PROGRAM TEST14_FORTRAN
ENDIF
IF (RANK < SIZE(KEY)) THEN
PRINT*, 'PUT--> RANK', RANK, 'KEY:', TRIM(KEY(RANK)), ' VAL:', TRIM(VAL(RANK))
KEYLEN = LEN(TRIM(KEY(RANK)), KIND = 8)
VALLEN = LEN(TRIM(VAL(RANK)), KIND = 8)
CALL PAPYRUSKV_PUT(DB, TRIM(KEY(RANK)), KEYLEN, TRIM(VAL(RANK)), VALLEN, IERROR)
PRINT*, 'PUT--> RANK', RANK, 'KEY:', KEY(RANK)(1: KEYLEN), ' VAL:', VAL(RANK)(1: VALLEN)
CALL PAPYRUSKV_PUT(DB, KEY(RANK), KEYLEN, VAL(RANK), VALLEN, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
ENDIF
......@@ -59,35 +59,34 @@ PROGRAM TEST14_FORTRAN
ENDIF
IF (RANK < SIZE(KEY)) THEN
CALL PAPYRUSKV_GET(DB, TRIM(KEY(RANK)), KEYLEN, VAL1, VALLEN, IERROR)
CALL PAPYRUSKV_GET(DB, KEY(RANK), KEYLEN, VAL1, VALLEN, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
ENDIF
PRINT*, 'GET--> RANK', RANK, 'KEY:', TRIM(KEY(RANK)), ' VAL:', VAL1(1: VALLEN)
PRINT*, 'GET--> RANK', RANK, 'KEY:', KEY(RANK)(1: KEYLEN), ' VAL:', VAL1(1: VALLEN)
CALL PAPYRUSKV_GET(DB, TRIM(KEY(RANK)), KEYLEN, VAL2, VALLEN, IERROR)
CALL PAPYRUSKV_GET(DB, KEY(RANK), KEYLEN, VAL2, VALLEN, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
ENDIF
PRINT*, 'GET--> RANK', RANK, 'KEY:', TRIM(KEY(RANK)), ' VAL:', VAL2(1: VALLEN)
PRINT*, 'GET--> RANK', RANK, 'KEY:', KEY(RANK)(1: KEYLEN), ' VAL:', VAL2(1: VALLEN)
CALL PAPYRUSKV_FREE(VAL2, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
ENDIF
KEYLEN = LEN(TRIM(KEY(PEER)), KIND = 8)
CALL PAPYRUSKV_GET(DB, TRIM(KEY(PEER)), KEYLEN, VAL1, VALLEN, IERROR)
CALL PAPYRUSKV_GET(DB, KEY(PEER), KEYLEN, VAL1, VALLEN, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
ENDIF
PRINT*, 'GET--> RANK', RANK, 'KEY:', TRIM(KEY(PEER)), ' VAL:', VAL1(1: VALLEN)
PRINT*, 'GET--> RANK', RANK, 'KEY:', KEY(PEER)(1: KEYLEN), ' VAL:', VAL1(1: VALLEN)
KEYLEN = LEN(TRIM(KEY(PEER)), KIND = 8)
CALL PAPYRUSKV_GET(DB, TRIM(KEY(PEER)), KEYLEN, VAL2, VALLEN, IERROR)
CALL PAPYRUSKV_GET(DB, KEY(PEER), KEYLEN, VAL2, VALLEN, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
ENDIF
PRINT*, 'GET--> RANK', RANK, 'KEY:', TRIM(KEY(PEER)), ' VAL:', VAL2(1: VALLEN)
PRINT*, 'GET--> RANK', RANK, 'KEY:', KEY(PEER)(1: KEYLEN), ' VAL:', VAL2(1: VALLEN)
CALL PAPYRUSKV_FREE(VAL2, IERROR)
IF (IERROR /= PAPYRUSKV_OK) THEN
PRINT*, 'FAILED'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment