integer bitwise or .or. -> ior

e064cdb4 · Kim, Jungwon · 304ce17e · e064cdb4
Commit e064cdb4 authored May 11, 2018 by Kim, Jungwon
--- a/kv/tests/14_fortran/test14_fortran.f90
+++ b/kv/tests/14_fortran/test14_fortran.f90
@@ -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