Skip to content

GitLab

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

integer bitwise or .or. -> ior

parent 304ce17e
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
kv/tests/14_fortran/test14_fortran.f90
View file @ e064cdb4
......@@ -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