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

integer bitwise or .or. -> ior

parent 304ce17e
......@@ -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
......
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