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

remove TRIM

parent fe6b60d9

kv/tests/14_fortran/test14_fortran.f90

+10 −11
Original line number Diff line number Diff line
@@ -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'