Commit e064cdb4 authored by Kim, Jungwon's avatar Kim, Jungwon
Browse files

integer bitwise or .or. -> ior

parent 304ce17e

kv/tests/14_fortran/test14_fortran.f90

+1 −1
Original line number Diff line number Diff line
@@ -37,7 +37,7 @@ PROGRAM TEST14_FORTRAN 
        PEER = RANK + 1

    ENDIF



    CALL PAPYRUSKV_OPEN('TEST_DB', PAPYRUSKV_CREATE .OR. PAPYRUSKV_RDWR, DB, IERROR)

    CALL PAPYRUSKV_OPEN('TEST_DB', IOR(PAPYRUSKV_CREATE, PAPYRUSKV_RDWR), DB, IERROR)

    IF (IERROR /= PAPYRUSKV_OK) THEN

        PRINT*, 'FAILED'

    ENDIF